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CLUBE Zso 





Autor: FERNANDO PRECES 
Sacavém 


A segunda rotina em Código Máquina, cujo diagrama- 
-bloco já apresentámos, inicia as variáveis ED, CB e X. 
Há vários processos de tratar as variáveis na feitura 
de uma rotina em CM; porém o processo mais sim- 
ples é instalar cada variável numa localização da 
RAM e etiquetá-las devidamente. Podemos elaborar a 
listagem inicial desta parte da rotina em formato As- 
sembler como se segue: 


ETIQUETAS MNEMÓNICAS COMENTÁRIOS 
ED — 
CB — Endereços destinados 
X — às variáveis 
Y as 
LDA,+1 
LD(ED),A para ED = 1 
LD(CB),A para CB = 1 
INC A 
INC A 
LD(X),A para X=3 


O passo seguinte é tratarmos a operação PLOT X,Y. 
É necessário: 


1) Carregar o registo BC com as coordenadas X e 
Y, o valor de X no registo Ce Y no B. 

2) Comutar o sistema de variáveis (T-ADDR) para 
PLOT. 

3) Introduzir uma instrução CALL para a rotina de 
comando PLOT. 


As rotinas de comando PLOT e UNPLOT (na ROM) 
exigem 2 testes. O primeiro verifica se os parâmetros 
X e Y estão escritos na escala correcta. O segundo 
se a operação é PLOT ou UNPLOT. 

O primeiro teste é em tudo semelhante ao que é 
efectuado na rotina PRINT AT, já nossa conhecida. 
O segundo é um pouco mais complicado, mas vamos 
segui-lo: 

Às instruções PLOT e UNPLOT desencadeiam o tra- 
balho de uma rotina que se situa na ROM, endereço 
2994. Esta começa por memorizar o endereço da 
instrução UNPLOT que se encontra na tabela das 
instruções de comando (também na ROM), que é 
introduzido no registo DE, e coloca no registo A o 
conteúdo de (T-ADDR) do sistema de variáveis (en- 
dereços 16432/3). 

A comparação do baixo byte do registo DE com o 
conteúdo de A resulta num salto. 

Se o resultado for negativo significa que a instrução 
de comando é PLOT; se for positivo, na continuidade 
da sequência, significa que a instrução é UNPLOT. 
Quando se trabalha em linguagem máquina, por ve- 


(Continuação do número anterior) 


zes podemos interditar o programa monitor (que foi 
concebido para desempenhar as funções de control 
em programação BASIC) de actuar, poupando assim 
tempo de vai e vem. 

Mas nem sempre isto é possível, por haver instruções 
muito vigiadas que nos impedem ('by pass — ex- 
pressão inglesa que significa passar por fora). Nesta 
rotina somos forçados a cumprir o especificado pois 
se não o fizermos o ZX não compreende a instrução. 
Assim, se queremos uma instrução PLOT, teremos de: 


1.º — Colocar no registo BC os parâmetros X e Y. 

2.º — Colocar no registo A, o valor 9B (decimal 155). 

3.º — Introduzir na variável do sistema (T — ADDR), 
o conteúdo de A. 

4º — Fazer um CALL para a rotina de comandos 
PLOT e UNPLOT. 


O passo seguinte da nossa segunda rotina será o de 
pesquisar se as teclas (R) ou (BREAK) foram premidas. 


NOTA: Aqui encontrará o leitor uma primeira solução que lhe 
permite equacionar o problema de como mover a nave da 
terra, no jogo 1, com uma rotina em CM. 


Uma instrução CALL para a rotina de pesquisa do 
teclado (na ROM) faz o retorno do valor da tecla para 
dentro do registo HL. Esse valor será depois testado 
para ver se é (R) ou (BREAK), ou se nenhuma tecla. 
As linhas seguintes em pseudo-BASIC, mostram-nos 
uma das várias soluções, talvez a mais simples, para 
essa operação. 


NOTA: No interior de HL podem aparecer os seguintes valores: 


1 — Para nenhuma tecla premida (— 1) 
2 — Para (R) premido (61435) 
3 — Para (BREAK) premido (64895) 


10 LET HL = (um dos 3 valores) 
20 LET DE = HL troca dos registos 
30 LET HL = 61435 valor de (R) 
40 LET HL = HL — DE Testa (R) 
50 IF HL = O THEN RETURN 
60 LET HL = 64895 valor de (BREAK) 
70 LET HL = HL — DE Testa (BREAK) 
80 IF HL = O THEN RETURN 
etc... se o valor de HL não for nem (R) nem 


(BREAK) 





Eis a 


listagem assembler correspondente: 


ETIQUETAS MNEMÓNICAS COMENTÁRIOS 
Teste do teclado CALL (Teclado) ROM — Endereço 699 


NOTA: 


EX DE, HL Troca conteúdo registos 

LD HL, + 61435 Código Tecla (R) 

AND A (Ver nota) 

SBC HL, DE Subtrai HL — DE 

RET Z Retorno se (R) premido 

LD HL, + 64895 Código Tecla (BREAK) 

AND A 

SBC HL, DE 

RET Z Retorno se (BREAK) premido 


(instrução AND A) — Tal como outras instruções para ope- 
rações lógicas, será devidamente abordada noutro capítulo 
deste curso. No entanto o seu aparecimento nesta rotina 
necessita de uma chamada de atenção e dum leve esclare- 
cimento, para não deixar o leitor a braços com o porquê da 
sua utilização. 

O registo F, também de 8 bits, não é utilizado para armaze- 
nar dados, como os restantes. 

individualmente os seus bits são usados como indicadores 
de estado ou “flags”, servindo de complemento a muitas 
instruções do Z 80. 

A instrução de subtracção SBC, utilizada nesta rotina, é 
afectada pelo estado de um desses indicadores. Há assim 
necessidade de colocar esse indicador a O (RESET) antes 
de iniciar a operação. 

Existem vários processos para limpar (colocar a 0) o tal 
indicador do registo F, sendo a instrução AND A, a mais 
utilizada. 


Mas continuemos... 
As linhas em pseudo-BASIC a seguir esclarecem- 
-nos como fazer o teste de (X): 


tO LEI ED & 1 Define ED 
20 LET X = 3 Define X 
30 LET À = X LDA, (X) 
40 IF A = 3 THEN GOTO 60 Testa muro esquerdo 
50 IF A <> 61 THEN GOTO 80 Teste muro direito 
60 LET À = ED LDA, (ED) 
70 LET ED = = ED a inversão 
etc. 


Podemos fazer igual raciocínio para o teste do (Y), 
onde a diferença está somente nos valores a definir. 
Assim a primeira listagem em Assembler para este 
conjunto, será: 


ETIQUETAS MNEMÓNICAS 

Teste de (X) LDA, (X) 
CP, + 3 
JRZ, (Inversão de ED) 
CP, + 61 


JRNZ, (Teste de Y) 


inversão de ED LDA, (ED) 


CPL (Ver nota) 
INCA (Ver nota) 
LD (ED), A 
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Teste de (Y) LDA, (Y) 
CP, + 6 
JRZ, (Inversão de CB) 
CP, + 41 
JRNZ, (UNPLOT) 
Inversão de CB LDA, (CB) 
CPL 
INCA 
LD (CB), A 


, (Ver nota) 


NOTA: Neste conjunto de Assembler, acima representado, apare- 
cem 2 vezes as instruções CPL e INC A para fazer a 
inversão de ED e CB. Bastante há a dizer sobre a utiliza- 
ção conjunta destas duas instruções, mas por agora pode- 
mos informar o leitor que efectuam uma operação dentro do 
registo A, mudando o sinal do seu conteúdo, de mais para 
menos. Existem duas instruções nas mnemónicas do Z 80 
que podem causar confusão ao leitor. A primeira, código 47 o 
(CPL), inverte o estado de todos os bits do registo A, e 
chama-se o complemento de A. A segunda (CP L), código 
189, é uma instrução que compara o conteúdo de A com o 
conteúdo do registo L. 

O caso que citámos coloca o registo A, (CPL) código 47, a 
funcionar não em binário absoluto, como é normal, mas em 
2.º complemento aritmético, quando antecede uma instru- 
ção INCA. 

Sempre que trabalhamos com o 2.º complemento aritméti- 
co, o ZX sabe que o estamos a utilizar. 


Estas, como outras instruções complexas do Z380, 
terão de ser amplamente debatidas, se quisermos sa- 

ber programas em código máquina. No segundo e 
terceiro: capítulos deste texto, encontrará o leitor o 
aprofundamento teórico e prático de cada uma dessas 
instruções. Ss 
Continuando com o jogo... | 
A operação UNPLOT é idêntica à operação PLOT; 
porém a constante a introduzir em T-ADDR, tem de 
ser alterada. 


ETIQUETA MNEMÓNICAS 
UNPLOT LDBC, (X e Y) 
LD A, + 160 


LD (T — ADDR), A 
CALL (Rotina de comando PLOT E UNPLOT) 


Por último, entramos no desenvolvimento do conjunto 
de instruções que vão actualizar durante o jogo os 
valores de X e Y. 

Também esta parte da rotina pode ser escrita por 
vários processos. Foi escolhido um dos mais utili- 
zados. 








o 


CLUBE Zs0 


ETIQUETAS 
Valor de X 


Valor de Y 


MNEMÓNICAS 


LD HL, + ED 
LD BC, + X 
LD A, (BC) 
SUB (HL) 
LO (BC), A 
DEC HL 
INC BC 

LD A, (BC) 
SUB (HL) 
LD (BC), A 
JR (PLOT) 


COMENTÁRIOS 


Endereço de ED 

Endereço de X 

Coloca em A, o valor de X 
X = X = ED 

Restaura X 

Endereço de CB 

Endereço de Y 

Coloca em A o valor de Y 
Y =Y = CB 

Restaura Y 


Estamos agora em condições de fazer uma listagem 
completa das instruções que compõem a 2.º rotina. 


ETIQUETAS 


CB 
ED 
X 
Y 


Valores 


PLOT 


KEY TEST 
(teste teclado) 


TESTE DE X 


ED-Reverse 


TESTE DE Y 


CB-Reverse 


MNEMÓNICAS 


LD A, + 1 
LD (CB), A 
LD (ED), A 


INC A 
INC A 
LD (X), A 


LD BC, (X) 


LD A, + 155 


LD (T — ADDR) 


CALL PLOT 


CALL TECLADO 


EX DE, HL 


LD HL, + 61435 


AND A 
SBC HL, DE 
RET Z 


LD HL, + 64895 


AND A 
SBC HL, DE 
RET Z 


LDA, (X) 
CP + 2 


JR Z, (ED-REV) 


CP, + 61 


JR NZ, (Teste de Y) 


LDA, (ED) 
CPL 

INC A 

LD (ED), A 


LD A, (Y) 
CP, + 6 


JR Z, (CB-REV) 


CP. + 41 


JR NZ, (UNPLOT) 


LD A, (CB) 
CPL 

INC A 

LD (CB), A 


) 


COMENTÁRIOS 


Localização das 4 
variáveis 


Atribui o valor 1 às 
variáveis CB e ED 


Atribui o valor 3 à variável X 


Ao fixar BC no endereço de X 
este lê os valores de Xe Y 


Valor de tabela a atribuir 
para PLOT que é colocado 
em T-ADDR 


Rotina de comando 
PLOT na ROM 


Rotina de comando na ROM 
Troca de conteúdos 
Valor da tecla 'R' 


Valor da tecla “BREAK” 


Testa o lado esquerdo 

Se for O salta p/ a inversão 
Testa o lado direito 

Salta se <> de O 


Inversão direcção da Bola 
.—— 


Testa o fundo do rectângulo 
Se for O, salta p/ a inversão 


Salta se <> de O 


Inversão direcção da Bola 


UNPLOT 


Novo valor X 


Novo valor Y 


LD BC, (X) 
LD A, + 160 


LD (T — ADDR), A 


CALL PLOT 


LD HL, + (ED) 
CD BC, + (X) 
LD A, (BC) 
SUB (HL) 

LD (BC), A 


DEC HL 
INC BC 
LDA, (BC) 
SUB (HL) 
LD (BC), A 


JR PLOT 


Valor de tabela a atribuir 
para UNPLOT 


Rotina comando PLOT e 
UNPLOT para apagar o 
rasto da Bola. 


Valor de X actualizado 


Sobe um endereço p/ (CB) 
Desce um endereço p/ (Y) 


Valor de Y actualizado 


Esta rotina em CM executa o trabalho das linhas Basic 
(140 a 160) e (180 a 250). 


ESCREVA: 


15 REM XXX (Reserve 113 caracteres) 


Introduza este código: 


16574 0, 
16583 50, 
16591 237, 
16599 64, 
16607 38, 
16615 127, 
16623 64, 
16631 8, 
16639 64, 
16647 254, 
16655 60, 
16663 62, 
16671 33, 
16679 2, 


0, 0, 0, 
191, 64, 60, 
To, 192, 64, 
205, 178, 1, 
251, 239, 167, 
253, 167, 237, 
254, 2, 40, 
58, 191, 64, 
58, 198, 64, 
41, S2, 8, 
50, 190, 64, 
160, 50, 48, 
191, 64, 1, 
483, 3, 10, 


62, 1, 50, 60, 64 
60, 50, 192, 64 
62, 155, 50, 48 
205, 187, 2, 235 
237, 82, 200, 33 
82, 200, 58, 192 


4, 254, 61, 32 


47, 60, 50, 191 
254, 6, 40, 4 
58, 190, 64, 47 
237, 75, 92, 64 
64, 205, 178, 11 
192, 64, 10, 150 
150, EA 24, 159 





TERMINA EM 16687 


Recapitulando o BASIC: 


10 REM XXX (53 caracteres) 

15 REM XXX (113 caracteres) 

20 LET K = USR 16533 

30 POKE 16577, INT (RND +33 + 8) 
40 LET K = USR 16578 

50 RUN 


E pronto, a primeira parte do jogo está pronta a 


funcionar. 


O leitor a partir daqui pode introduzir muito mais 
coisas. 


Por exemplo: 


1 — Introduzir Alvos de Impacto 
2 — Introduzir Raquetes 
3 — Introduzir Contador para Pontos 


E muitas mais coisas podem ser imaginadas para este 
jogo. 


Final do primeiro Capítulo 


(Continua) 
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TROCO QUALQUER TIPO DE PROGRAMAS 
PARA O ZX SPECTRUM. 

POSSUO CERCA DE 25 PROGRAMAS, 
DESDE UTILITÁRIOS (COMPILADOR BASIC, 
VU-3D, ETC.) ATÉ DIVERSOS JOGOS (PE- 


NETRADOR, HORACE SKIING, ETC.). 


ANTÔNIO MANUEL DE BASTOS PEREIRA 
CABÊÉÇO — PESSEGUEIRO DO VOUGA 
3740 SEVER DO VOUGA 





Autor: FERNANDO D'ALMEIDA PRECES 


CAPÍTULO | PARTE IV 


Parte 4 — Pequenos programas monitores 


Muitos programas deste tipo, cuja utilidade pode à 
primeira vista parecer de pouco interesse, vem mais 
cedo ou mais tarde a tornar-se numa peça importante 
do nosso arquivo, desde que tenhamos um processo 
prático e rápido de os transportarmos para o compu- 
tador, na ocasião em que deles precisamos. 
Portanto o problema situa-se mais ao nível da organi- 
zação dum arquivo e processos de localização dum 
pequeno programa, do que falta de tempo para o 
escrever no computador. 

Mesmo que o leitor possua poucos programas grava- 
dos deve, por método, elaborar um ficheiro que os 
organize. 

De início podemos fazê-lo com um simples caderno 
de folhas soltas aonde, como primeira página, deve- 
mos criar um índice que agrupe as cassetes por 
especialidades. 

As páginas seguintes agruparão programas de uma 
dada cassete e, nesta conformidade, teremos uma fita 
“n aonde vamos gravar todos os pequenos progra- 
mas monitores. 

Cada um desses programas, chamados por um nú- 
mero, será elaborado a partir da linha Basic 9900 e 
conterá o mesmo número de linhas de forma a que 
possamos, para um certo trabalho, chamar em conti- 
nuidade “n” programas e no final somente ter de 
eliminar o grupo de linhas Basic correspondentes ao 
último monitor introduzido. 

O tempo de gravação de cada um desses programas 
é bastante curto para permitir uma introdução rápida 
no computador. Um conta voltas incorporado no gra- 
vador acelera o processo, desde que nas páginas do 


ficheiro se encontre mencionado o número de rota- 
ções aonde começa o programa pretendido. 

Os programas monitores que seguidamente vamos 
introduzir neste texto, encontram-se baseados nas 
normas especificadas. 


PROGRAMA “1 — Formação duma REM com o número de 
linha 2, para reserva de “n” bytes. 


Apesar de algumas desvantagens que à frente vamos 
enumerar, este processo para a introdução de código 
máquina é ainda utilizado por alguns programadores. 
Pessoalmente, utilizo a REM (2 para introdução de 
texto (instruções e legendas), a visualizar em deter- 
minada sequência dum programa, apenas enquanto 
este se encontra na fase de programação. 
Normalmente nessa fase, o texto de apresentação e * 
as legendas podem sofrer alterações que afectam a 
sua extensão. Então, se este estiver já enquadrado 
entre rotinas de C.M., poderá ser difícil arranjar espa- 
ço para a sua ampliação. 

Uma vez terminado o programa, podemos trans- 
portar o conteúdo da REM, para qualquer ponto da 
RAM, de forma a uni-lo às rotinas em CM, já 
concluídas. 

O nosso primeiro monitor — o construtor de REMS — 
está escrito em Basic, e as expressões matemáticas 
nele contidas não se encontram simplificadas, (isto é, 
reduzidas à expressão mais simples) de forma a auxi- 
liar O leitor menos treinado a seguir as suas combina- 
ções, desde que conheça os rudimentos da formação 
duma linha em Basic, neste computador. Se tal não 
acontecer, terá de ser paciente e aguardar, pois lá 
chegaremos. 

O programa ao correr, começa por inquirir quantos 
bytes quer reservar. Se o número indicado for inferior 
a 354 (o que acontecerá na maioria dos casos), não 
são introduzidas instruções de manobra, e o progra- 





o 


a ti EE 


ma segue a sequência normal pedindo no final para Tem incorporadas as instruções necessárias para a 
apagar as REMS não utilizadas. sua manipulação, mas será útil chamar a atenção do 
Se esse número for igual ou superior a 354, terá de leitor para o seguinte: 
seguir as instruções que o programa colocará no a) As palavras que vamos introduzir na REM serão 
écran, após os primeiros cálculos. mais tarde para aparecer no ecran, ao longo dum 
o dd Sr programa, e têm portanto de estar devidamente 
cia dEdevo FBSBlESiSD FÓDI ES arranjadas de forma a prencher blocos exactos 
amada o 12345673901224557392125 de 32 caracteres, tal como fazemos quando em- 
73890 z 
3 REM 12345672901234557a90123 pregamos uma instrução PRINT. 
ho A DSENS ASI LBSASEDUSÓISS b) No final do texto ou legendas, teremos de impri- 
4“5E7aar mir o símbolo “+” (Código 35). 
o REM 1224SAFASCIZISIATFASORIZI | A 
4sSsaATasR c) Se por lapso a extensão do texto ultrapassar o 
e E a 123456735012345S6739024123 número de bytes reservado, o programa encrava 
? REM 1234567aS0QIZ34SA7ASUIES protegendo o que está feito. 
a Saad ci e Neste caso, e também para efectuar modificações 
4557890 a no texto, à posteriori, será utilizado outro pequeno 
Q REM 1293430572900123455789012A monitor. 
4.507a930 
120 REM 123450739012345678001Z2 E 
45672902 NOTA: Claro que também pode modificar um texto com este 
Ada BORDER 5: PAPER SS. INk AQ: mesmo programa, voltando a escrevê-lo de novo. 
9235 PRINT AT “a AFRO TaAMEM ” - E 
TO CO da. REM ES TAB. Ea 'arRHa say BORCER Sd: FAPER e" ah ae Lg 
ZENAR DADOS, Lã : PRINT AT a,2; INK “INTROS 
9910 LET ;=22785 UCHO DE TEXTO HA REM aê PALSE E 
915 =r “dd e L bs Es po: CL 
E 4 neo TE 4354 Li Ro Rida 5905 PRINT 00 INK 1; Ingtrucces 
9920 LET C=INT ib:256): LET d=ii Este programa parara Semper 
b:2SA) -ci s2S6 E Quea Extencaú das dadús entras 
0925 LET k=t-vi+45) US CE ja SCUPpEFrICr 0 Numero de 
29340 POKE i+42.59: POKE 142,0 bytesrecervados PEio manitear COI 
9940 FOR n=i+S5 TO 1-1: POKE n,4E aaa Pete múnitar Serve aper 
: MEXT nº PDOKE PIT, & as parserntrada Je texto € grupo 
9945 PRINT ,," Ectaú reservadas : de PERRi Cos E Salta WtitiTados 
nã la.REM, E E RE TT pOr rotinas em CQdÍidoa maquina. 
9952 PAUSE 22D: CLS qa. STO 9913 PRINT Em texto terha a? 
p | o ENcal a0 ESpaCamEntO E cseparacas 
pas SG. ne Ss. Jo 7: = daz Dalavracde Farma au ubter 3 f 
SA id di - pos ExaCitacde do caracteres.” 
Sage PRINT AT 2,0; APROVEITAMEN def LET x=23700 
TO Da la. REM PÁRA”: TAB 3 ARHa Ses PRINT INK Q,0 Para Fim d 
ZENAR DADOS... PRINT AT 2,8,' “THO hETISS7EM PTaitha E: [COJIiGO FI 
IVUE QJUANTOS AYTES QUER" T 
: "REGERUVAR?: IMBUT- K. nd e de INPUT Introduza uma tinha 
9965 PRINT “C INK 1;TAR 3;0=> Ir dados. C;a% 
dicados “;k;" Bytes” na o FOR n=i TO LEN as 
9970 LET n=1+INT (ikK+61:/36): IF o TE LEER x=15 THEN STOP 
n:e=ziêà THEN GO TO 2299 O POKE x ,CODE agini:o IF nmn=ich 


997S INPUT “Prima Uma tecla para THEN GO TO 9975 


O O O VC IDAD O O AGIDO Us — MPa 


LO O UCs 40) MOS US 4S UCS O RES MS A) Ca dO = 
“o to Cd = 4 =) ETA 1 Pe EM Ls 


instrucues.c; (gm CL5 o PRINT CARS CODE agir), 
9935 PRINT AT 2,11," INATRUCOES" WU LET x="+1 

““" Chame q Linha 10, WUJSE G num o NEXT sá 
erade linha para ll e repita a WU Gu TO asao. = ds ale 
CrReracao “in-lQ;O vezes." Gu a > IP CODE agin)=55 THEN STOF 
ndG terminar a cua interverncas E mn Side MEvE mms 

tera “sn; REMS iguais.”* De pa pa Su To assa di 

is GO TO 9900.,.": STOP 9 SHUE Ro LINE sstr 
eso PRINT ºC INK dO Prima ums 

ECla fa gCCiCchar crrcarama.!: Adi 
bis RI Dodge pt cla Aida: Zi PROGRAMA “3” — Introdutor de C.M. na REM 2 em código 
LiZadas.” INPUT (tg: Ci5: gotTO decimal. 

2222 
9999 aQUE “Io LIME 3055 


Este monitor tem as mesmas características técnicas 


PROGRAMA “2” — Introdutor de texto e legendas numa dos anteriores e deve ser chamado com a instrução 


REM 2. MERGE “3”. Tem instruções de utilização e só deve 
Este programa deve ser chamado com a instrução ser usado para código máquina. 
MERGE “2” para apagar todas as linhas do progra- Cada vez que introduzir um código, aparece no ecran, 
ma anterior com excepção da REM (2. por uma instrução PEEK X, a confirmação deste códi- 
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go e o respectivo endereço. Se verificar que se enga- 
nou prima “E” e volte o número. 
O monitor faz STOP, quando: 


a) Terminar a REM. 
b) Meter como código um número superior a 255. 


é BORLER 3: PAPER SS. ItHk 2: É 


“3925 PRINT OT 2,4; cIntroducaa de 
CG3:94 Maquina neREM E. 


Q912% PRINT “C" Entre com Qà Ccgai:g 
«à em CECIMBL.” 

Q915 PRINT “o Para TERMINAR use 
GQ numero 2gaa." 

Q922 PRINT “Cc Se ERROU c Codigo 


€ “ao reparou depeis de ENTER, E 
Ciha ao tecia E” 

928 PRIMT “0 
ara COMECAR. 


Prima uma tecta E 


93224 INPUT (tg: CLS 

39490 LET x=22760 

a945 INPUT cJiao entre Q e 285 
» Ci36: IF a$='E" OR ag='€" TREM 
“co TO asas 

399520 LET s=UAL ag 

Q95S IF ::2585 OR PEER u=13 THE! 
STOP 

S3980 POKE x,u 

Q980S PRINT ,,TAB 2;x,a 

974 LET x=x+41 

9975 GO TO 9945 

q9as LET x=x-J: INPUT CMeEta q cr 
di9€4 CERTO “ja 

q922 Ea TO qoss 

99099 aABVE “a LINE S92a 


PROGRAMA “:4”” — Correcção de erros ou alterações do texto 
e transferência do conteúdo da REM “, 
para qualquer ponto da RAM. 


Este monitor deve ser chamado por MERGE 4”. Ao 
correr, apresenta o MENU com 2 opções. 

Para emendar um erro ou substituir texto, seleccione 
a 1.º rotina, entrando com o número 1. 

Surgem instruções e para continuar prima uma tecla. 
Cada vez que premir ENTER, avança um endereço e 
mostra o seu conteúdo. Para o alterar, prima a tecla 
“E” (erro), introduza o novo código e depois ENTER. 
Para transportar o conteúdo da REM (2, seleccione a 
2.2 rotina, entrando com o número 2. Surgem instru- 
ções e para continuar prima uma tecla. 

Ao correr, esta rotina avisa o utilizador que deve 
proteger os bytes a gravar, alterando o RAMTOP. 
A transferência dos bytes termina quando o ciclo en- 
contra o fim do texto “+” (código 35) ou ainda o 
código 13 (fim da REM). 

Quando aparecer o relatório, pode se quiser, anular o 
programa monitor introduzindo NEW e ENTER. 

O programa indica ainda como gravar esses bytes. 
E pronto caro leitor, programas monitores apenas es- 
critos em Basic, terminam aqui. Alguns deles vão ser 
utilizados na nossa iniciação à linguagem máquina. 
Outros já em programação mista (Basic e C.M.), após 
a parte teórica das instruções assembler, irão surgir. 





239200 BORDER &: PAPER So INE Rol 
LS : PRINT AT 2,]22,0"M E MM 


“co SJ - Entenda de errar alter ata 
C de texta Etc... na REM Oo 
(co gg -Tranererencis da curte: 
G da REM Q, para cntra bater 
G da RAM, coli imicio nO End 
PECO xi,” 
2925 PRINT 00" Indique €C numer 
& dele sado... INPUT nº CLS IF 


n=e2 THE GO TO 2952, 

agi) PRINT AT aA,Il,CRotina 20 
Instruches eo" Cada ENTER avan 
ca Um endereco emcctra o ceu cor 
teugda. para alterar-ta prima Er 
s IANntroGduza novocadiao € ENTER. 


Quanda acabar aE COfTECCGE 

e. Prima CFCL.CCCC ,CPrima Uma tec 
E INPUT (3: CLS : LEI Z=2376 

Dk 

“915 LET azPEER x: IF a=zi3 THEM 

STOP 

Vac) IF a>)21 THEM PRINT Csa,CHRS 
a: 

3928. ld asilo THEM PRINT C;u,CDod 
190 

q922 INPUT LG: IF tg&=]FO OR tã=" 
Fo THEN aATOP 

doi) IF lLg="E" OR tE="€" THE IH 

PUT 5%: LET KL=TODE E 20 PURE An: 
PRINT o “ “,CHRã& PEEFEÉ 

“945 LET u=x+41: EU TU 5315 

29324 FRINT AT A,Il CROtina Ecos 
Inetrucoes:":" ce gsinda nec a 
FEZ JEVE alterara RAMTOP para in 
-L1).0CC“ Q tranererencia de bat 


ES asCabaQquanda aparecer na texta 

& COdiga JO “Br cu ao caediga 13 
+ QUE Indica à fim da REM.CCOCC q 
tando curgir à rEelLastorao, podeasn 


Ular à Basic, cam NEL E ENTER,” 
“" Para Qravar CE puytes tranere 
FidGse, ELcCrEva: SBUE “Cnamelo O 
QCE tENJErECO nt. (NUMETO JE EuSte 
el. CPrima Uma tecla: INPUT 
Lã: CLS 

q9as INPUT da tETi RAMTOP? de a 
Unic, rã: IF h=" R THEt PRINT 
DepúGis de a alterar, primo Gl, 
“. STOP 

“aa? LET x=2276R IHPUT  Indigu 
€ O Endereço de. SffanQque Pora a 
tronererencaias. Ti 

3965 POKE 1 PÉEK xo PRINT 

o PEER Xon,0 o “;PEEK rn 

2970 LET x=x+1 

378 LET nm=mnsi 

9935 IF PEER x=25 OR PEEK “s=13 T 

HEI STOP 

sas” co To a265 

Q92a IAUÊE “4” LINE S002 


Neste computador, toda a programação em BASIC, 
pode ser substituída por código máquina, sem qual- 
quer limitação. 

Temos no entanto de tomar consciência que, para o 
fazer, é necessário um conhecimento profundo do 
microprocessador, do seu assembler e das rotinas 
monitoras da ROM, pelo que esse estudo terá de ser 
cuidadoso e bastante ilustrado com programas exem- 
plificativos para dele tirarmos proveito. 

Antes de terminarmos o primeiro capítulo, 2 progra- 
mas, um em Basic e outro em C.M. (nesta ocasião do 
curso, inscritos como mera demonstração) vão escla- 
recer o leitor sobre a razão fundamental dos mais 


CLUBE Zo fSDTUIÂÃTÃTZTDDOEOÔÊJSJI))])])7)]/]/] E 
OD COSSgEBSSSSSSSSSSSE ED" 


ec 
Fi 
mr 
1 
= 


RR E 


experientes insistirem na programação em código 
máquina. 

Ambos os programas conseguem, com igual efici- 
ência mas em tempos muito diferentes, misturar duas 
imagens numa única. 

Isto é uma coisa muito importante, que os ingleses 
chamam “MERGE PICTURES", e de uma utilidade 
fora de série. 

O princípio do seu funcionamento é muito simples. 
Temos uma imagem no Ecran, e com um comando 
RAND USR XXXX obtemos uma sobreposição dum 
desenho, dum texto, de legendas, etc., que se encon- 
tram depositados algures na RAM. 

Uma simples operação binária “OR” é a chave do 
programa. 


Ed CS) Fa 


d 


= — e = Emas $ mm L. 
120 ,04,02,45B,0.£,E,ã: 


a Tur 


untar 


LO pes 1] pos pos pe 
403 fu IT] bei poa pes 
UCS TR 2 Cad Cad 


das Ea isD me 


“"MERGEECRAN 


Ja 
7) 


“O 1) 


m 
= 


o 


Si390 Fi 
FEM smntroagdu 
CLEeEsBkR 2SE 
FOR m=u 
FEBi a: 
CRINT or, 
MEXT r: 
STOE 
REM sss.s443545+ 

| FEM Tranecoarte dies 
Emi 1: E 


nm 


FMM E GIN rj 


STAN CNI ta 


ef ea ut poi 
| 
|-s 
To 
Jr ie 
TE 
> u) 
Y 
a 
q 
CL. 
a] 
mos 





+ = [ET = 
us à . =. Ê de dm + de dem o "= = 
Em código máquina, como terão oportunidade de en- ET K=Ei4s 
- b é a ; e 1& TKE DL GEFEE uy 
saiar, a execução é instantânea; mas em Basic de- do? PORE Z2,FEER q 
dia ' - o : —- | q A a 5 ep» 
Le” LET z=T5i LES u=4351 LES 4 
mora + 2 horas a completar o ecran. =L-1 
l7ê IF t=Q THEN STCÊ 
To e E a ”. — 
lat CO To IsQ 
COP FIM sasss245%45 
e? RE E ; : 
S BOPLER ES. CnPER SS tur 1. É cit REM Merge em cm 
ja Cir. Efno 9 o ZER LET e=2ã2ae 
O E PEM ERC à EPrER pusPaEar 23? PURE e,idi: POKE e+1,58) 
CC eLM MERSD O ElTan quarded: “= Pero €, “ it 
e o E a À Rae Zi? FENDOMIZE UsIR Fera 
TO ENJETECG zreC0E - Ci à Elre e ERRO - wi : 
precente =>& Tor 
sa e =. STO == E .— o ó= : — + 
” FEM Erasgrame de dencetraçcaes ro DRTG SJ, S4,23: SI.t.Sl.l 
dm 1 21 51 tas sp à 4 3H 43A 440 JG 46 44 0/73H43 45 
em Ezeisc C,ed,.ch,ise,iis.as Zle,ii mr. d 
= SJ Dá AMRS 
as Za Es ce 1 em so. mi ul um und ii tin nNcE: ass : ThiH HE 
é he HEMmOTis COM COUTO SER PEN PN A E nc ii e rm E 
= FEM Fara sunter co ecrane 
ires o Sc 
to” | Ap pr 
at LET hi=16304 
EU LET Se=2E20E 
SC LET prc=EIdd 
20 LES azPEEr de FETeo 23 
s UM 33 E! = 4 a ' 
Ss CO e = ivgy decr 
2 FPORE ht.a se cCE Ed 
—. e E auto t ss qi “mi e — + 
O LET hizhisd Seria apt dE 
SC LE; dez=de+l Ferri 34 
- . E > --—  :.1 em E Sã 
so LET br=bc-l. IF bc=2 THEN 5 ESTES 2 
TOR Z27as 31 
IRe DO TO 4% 32707 E 
EG A = = o at tm SALÃO e ue -— 
Jr ir: i sEceora lectio RE 
E rã : e E — =! mer To a — a = -— u 
Sit LET r=lEGS4L Sed = 4 
te) LET =Didjd RETIE 2a 
430 PDKE «.PESK 1 R2Fli 185 
sá = E Er soe e SS 2 qu E 
ei no: =” A dE É tê dd 
a = A == — e 1 -f E ÁS TO — — — 
.2 LET Zz=2+1 ceslo do 
S0E LET q=4-1: IF y=ê THEN E2TOF J2Tia ia 
JeFis Za 
mo ds * cedo to: ado ado 
— — E E Tu 
Sides do tm E Pe 
CAD Se 4 a <e 
e o O ed 7 * 
:— e q (e, = o. Tm - 
q rt ils Cl gal Sdecioa Rs 
JEPO RLM cunprotina que executa s SETIis sas 
LoErstald Cinafizsz ie DR FEEL -r JE Teo Bs 
BRO REM detlimail em Dimaric 
E e — — ,— qu cam cm 4 E AE —as; É. canth = 
iPit FIATORE JliISÊ LES kB: iz: 
E = 
tas if k=«DECE ki 
SECT in: tantos. Dt 
iBIe FOR n=7 TO E aTEP -i 
ipi FESG LET C=ENT is 
e ES RSS ds o - - . 4 
tie Wii sHo-.—-: 
1060 LET a=INT tb 
Lobo LET ikxzb=daãr 
SAIA LET rt=kaárr E dizIiMdr , Emi - 
o ee E RR a Vale a pena estudar código máquina, não vale? Eu, 
Set NDA: T a 
TOR DEM hinsPis Eh dpriwai caro leitor, direi que SIM...! 
clio Mm” cor Tasso ES e E IIS EU Tu Sos o To sa MM Gs 
4 TM BOATE SS AGS oO gs Tg k 
d att mio te ado ad e a das E FREDA: mk o 
14473 ro ”. =; tl =. TE e a a =T]o a E FIM DO 1 CAPÍTULO 
abs ad, ab ES : Ati O Qu dm 3% E -, ud é tu de? É dem — 
dici RESD to LET p=m+AFaURi ngiic o 
ti mng-r: (Cont. no próximo número) 








NEN, És a Cod Cd fa E) 
q 
BI 
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CORRECÇÕES AO PROGRAMA DISASSEMBER 16 K, MONITOR 1 
(V. n.º 12 Setembro/83 pág. 24) 





Fernando Preces enviou-nos as correcções ao pro- 
grama Monitor 1 publicado no n.º 12. O autor e o 
CLUBE Z80 pedem a todos a melhor compreensão 
por este lapso e transcrevem agora as linhas altera- 
das ou acrescentadas. 


B:REM & FERNANDO D BLMCICA 
PRECES 
o LLS 1 LIST : STOP 
lê REM Menmonicas da Z32n - Pr 
Carska Decacceembier. 
seo DIM ellos 
said DIM gaga: 
ico DIM qiaai 
dt DIM qgiaoo? 
OSS IF i:=IQ AND iciB0 THEN PRI 
e + Dae 222 23535. 1 & 
1330 it ET 3 BOI SS TO 1-3 
o têm do | + & À + do WU Tb : À q = >= 
Cizig 
lodo MIEX7 à 
2802 FQUSE ceu 
2250 ROM sas F4222444542244525544% 
IPES TAITATFITLTDAIITIIDTI AS 
EFEITOS 
32ES INPUT cê: Cis IF cór>oay 
AND cáisCnC THEN BEEP .2,34:. &0 
TO 2258 
dsSto NEXT k 
Soto IF tkg=0ibi)o OR b$=0hiCa dm 
ND wgs>CHi O THEN Gp TO 4220 
326 ir isg=]ibisgo OR gã="hUO RR 
NO ug CHLS THEN GO TO dzsb 
Josie PRINT 1%; a 45; .T;kS: IF 
CH="34" THEN LPRINT 15; CrSIB:t so 


45 


NE Tok 

jÍ:iga THEN GO T 

IF s<idgá THEN GO T p 
sJ)15S1 AND s:162R THEN GO 


90CHLO THEM GO TO 4390 
RESTORE Já4ur 


as 


ed 4 +] 
t4 


Cod Lad A 3 Cd Cd Cad 
DT TU MD TT 
3 UT CA ES TU ta Ey 
4 
TN 


4 Cy 


“io CO TO 9Y0A 

7453 RESTORE 3420 
“20 FOR k=1 TÚ j/3-8 
155 REBD s$ 

OU NEXT k 

7165 CU TO 347 

770 RESTORE 2.00 

FOR t=] TO gç3-s 
SO ss 


Lad Lad 
J>4 

Cy 4 - 

Es 1] 
n 

Mt 
) 


3795 
sS02u 


1+2) 


á las 


C THEN LPRIMNT 


MEZT 1 

GO TO 2474 
RESTORE 2402 

FOR k=1 TO j:2-11 
REND ss 
MEZT td 

SO TO 34708 
LET t=PEEK 


(1 IP PESGIPEEKR 1 


ERINTo Us. DEER 


gsl5e “vê To aalir 

2” LIT izi+l. 

driu PRINT 18; A Er ga 
“+; PEER pio IJF cg='4" THEN 
PRINT i$io Cost cit tr uago Cair 


CEM 


“Hof t 
o Deh 


ppp cpf A 
pd fg 


“ 
. 


Cómo Cad Cod ye 


Pd TS a A 


e a a fo 
(o) Cos (4) 
ts dE 


Sa 
EFE 

18: 
4.328 
4.5 
LSitr 


46028 
462G 
4618 


4740 
4745 
4750 
47080 
477 
4730 
4300 
h 


72 
2710 
a200 
agiu 
q93u 
S999 


e “ 21 : .* 


= 4 a Es 


(5 PS Cm. 


co To Saga 

LET z=i;sd 

PRINT 18: Citiwugo EDER s 
Lã: TF cg='4" THEti LEPRINT o: 

AB CAU PEER Lp0I.Ci ES 

Cc TO ogaa 

LET izi+i 

PRINT ;j%&;“: ug. C+C PEER 
IF c&='4º THEM LPRINT ig; 

: +";PEEK 121;03% 

co TO qgea 

LET i=351 

LET t=IM (is -I3LTINTo ti: ssd 
RIMT o 15.º ED RR E 
Cio TE cg=040 TREN LPRItT 
“4 ta TB: CA REEEK 2,” 

20 TO Sgoa 

LEI ijzisi k 

LET sSPEER 3 

MEXZXT 


E E TA pa 
RESTORE 3400 


THEN CD TO 1782 


MEXT k 

IF wug:.>“HiO THEM EC TO 43592 
REZTORE 3402 

FOR k=2 TO s-35IMNT is:31 
REBD s$ 

NEXT k 

LET t=INT (5:3)-8+4INT (tj;ves4 


e wg="1Y 

co TO ssig 

LET 1=:+41 

IF i<=sf THEN GO TO 3ile 


SAVE “1º LINE S 
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In. PERSONAL COMPUTER, NOV./83 
Adapt. e Trad. de J. MAGALHÃES 
FICAMIDE 


ASSSSSSUSS 


à 


PERDE PLICILILIS ICI CO LO CI CO CO LIL 
SD o ESIDLDUDITAP MH 








? 

o 

o 

q 

Q 

ps 

s 

Pi 

3“ 

Liv 

+37 

40 

+77 
U ser 

43" 

Ss20uw 

La 

SR 

Sir” 

20 

SI” 

2” 

o. SE0 

PiuOLli ou 

nes crista [ER 

61Ss 

o o O ZU 
PESENHO PIBAMIDE CHEIR DE bau 
MUMDRUS. Sito o UMR TRBUELTCRIS Gir 
RO nBURBIC. O MEU TOTAL E & awrS 645 
POD NUMEROS LES CASAPS POR UNDE 21,D% 
PMSSEI o oibl TOPO & BRSE BS” 
BSS 

6sU 

1EM DE ENCONTRAR O MEU CARINHO Es, CG 

DU UM DUTRO, MRS NESTE CRU CU E>0 
UM TOTEL IGURI 80 MEU, Ci SEJA 075 
FR Slam CMS CHSRÃA POR ONDE FPRISRE au 
CLEUERO SER TQliaBil BD MTNHE, as 
c=-l: 

"Ra 

SO ZE mM an; 

ló GO FUE 22d 

“Y BORDER 2. IE Ro FPRPEF Z: Ed Gs 

La &=d: 
li) FEM LItiHBIA HORIZONTAIS "20 
les LET B=223 =CHRS 
Liv LET Cslod LB la 
115 PLOT 222,56: DRPU -191,0 FER 
1i2Q FOR A=04 TO 152 5STEF & =UHR 
130 PLOT E,m 748 
l42 CRAL -C,R ER 
152 LET a=-=B-a “08 
160 LET C=C-lB 77 ê 
172) HEXT q 0 
2a REM LIbHAS VERTICAIS Bi,Di 
=05 LET 5B=565 “28 
210 LET nB=127 Q22 
215 LET C=96 ai 
ce) FLOT 127,50: CRAlL 2,535 Jor 
232 FOR L=3 TO 96 STEF à l2IL 
EsY PLOT A+0,EB lrzwr 
Su CRALU AO Ri,Hi 
260 PLOT A-L,R 1030 

Era DRAU 2,0 la 

=) LET T=C-5 bia 
co) MEZT É I12YIQ 


REM 

RBINDOMIZE q: 

LET Dz14 

LET WN=2 

FUR B=1 TO Jg 

FOR B=1i TON 

LET XZX1iA,Bi=IMT o CiGrO+4+314,5' 
PRINT DUER 1, PAPER 75 Itjr 
B+2,D+8B8; XiA.,8B: 


HEXT P 

REM 

LET E-=l. IF GHDO+.S THER LET 
LET I=B 

CI HiIIZ) LIM dilgl 

LET TOTAL==[1,8: 

LET Uíilizã: LET Higi=B+14 
"UR H=-2 TO 22: LET yiBgi=As: 
LET Z=IHT CiRHD4914,85) 

SF £:=3 THEN LET Zs-d: BO T 
IF Z:=5 THEM LET Z=4: GO TO 
LEY Zsi 

LET B=E+Z+41 

LET TOTSL=TOTAL+Z:1A,B1 

LET HiBgi=15-5+58 

NEZT q 

REM 

CO SUR ISA 

REM 

LET Bal 

DIM D:il2i: DIM Evcizl 

SO als 322u 

LET GUESS=xi1,8) 

LET Eilia3:; LET Dizi=zB+414 
PRINT OVER L FOrER G,oT E: 


PRINT PAPER Q, Itik S;aT 15, 


É SO 


LET EiBgi=D+42 

REM 

IF Itrhevg="" THEti 
LF INkErvS= CHas uu 
GO TO PSA 


Ny HR$ SA THEN LET 

so TO 7P&Q 

IF Ibsrevg=zCARSs 32 OR INKEYvE 
iii THEN GO JUR ler: COS 

o co To cre 

IF IbMMEv&=UNR$ 33 OR IMrEvgE 
LIS THEN GO TO ara 

co TO Gau 

LET B=B+J+1 

=2T GUESS zGUEIS+A IA,B) 

LET Dig! =l&-B+B 

PRINT OVER 1, POPER G;AT E: 

Qro” 

EXT R 

RE: 

PRUIE d 

REM 


FOR a=1 TO Il? 

a QUER 1, PAPER 4,AT di 
DD 

MNEZT q 

REM 

FUR B-Ja To 2 

SOR Bg=1 TO IR 


e 


AQ-=—===[[555555500D[[];] 7] ERR = 


QWQW—QWw[][ TT 


124602 PRINT PAPER 2:.AT BA,A;" O 
ia?” NEXT A: NEXT B&B 

1)7S REM 

12324 PRINT INK BAT B,S,CESTE FO 
II oOomseucaminhHos 

1222 LET A=17: FOR B=1 TO IR: PR 
INT PSPER 2; INK 2:07 A,8;wm AT 
no4,8, 8" NEXT EB 

1122 FOR a-lã TO 224: FOR 8B=1 TO 


SS: PRINT INK 1;AT a,B; "Bar a,2 
S+48B. BE ortnExXT BB: NEXT & 

1112 IF GUESa=zTOTAL THEN GO TO 1 
Ira 

1222 PEM 

il? FARAINT FLASH 1; BRIGHT 1; QU 
=: Lo INr 1l;o0T 192,9; TOTAL ERRNM 
Eur 

izeQ GO TO léóde 

jato FEM 

jaiy BEEP .,158,5: BEEP .i15,10: BE 
EP .1S8,158: BEEP .15,22: BEEP .4i5 
a de REEP .J3,22 

13222 PRINT FLASH 1, ARIGHAT 1, QU 
ER 1 INK 1;9T 19,184, CORRECTO 


lira REM 

14180 PAUSE 250: PRINT OVER 1, Th 
ag AT 19, 1, “TECLA, AT 19,26, "EN 
l42) POLUAE q 
li32 PAPER 2: CL 
Ii”) PRINT INK 4:07 
id — ie PARARCGAT IRA. 
TECLn: REPETIR": PoU a 
1472 IF INKEy$=CHR$ 33 OR INkKEYvS 
=CHR$ 115 THEN CLEAR :- BORDER 7: 
PAPER ?Z. INK Q: CLS : STOP 

422 CLERR co TO da 

liaog ITOR 

isto REM 

lsiê FOR B=1 TO 
15822 PRINT QUER 

Brant, 
15232 NEXT q 
18424 RETURN 
16022 REM 


dd,7; TEULA 
2, “QUALQUER 
SÊ q 
3 


SIEP DIFFSI 
PAPER 4S;AT Ui 


=" ny 


nt 


15619) FOR R=2 TO A-lL 

lê) PRINT OVER 1, PAPER FT:AT El 
Ri,DiR!,0 * 

463) BEEP .25s8,5Q 

J6s:20 MELXLT À 





in. PERSONAL COMPUTER, DEZ./83 
Adapt. e Trad. de J. MAGALHÃES 


»Oi;iDAY 


Un ERS 


q 


Tem CD CEPÍTOOD CE um DISPOSTO 
CriSOD Core eviier = iàniromis5seD 
CE roles ESDpElicis Due sireves 
DE TS5 Ce izncam Sole E 
ierro. CeESIrDIiER iDDD Dipo DE 
LEGE ÍiZDEL - | 

Ter =cEnESS 5 tenizgíives PEFE DNED 
PErmR o VD = pro mEcas DESSES 
NnEtES COD SD De izmberm tEi 
SENDO EleDizoD: 

Liza Cisrie DE SEE CESiÍruids 
COrTESDONDE & MENOS LUME ViDE Dl 
SE je E vmo ienizíiite: 


TeELiAS Dr CONTADLO 
Sº - ESELET DS "so - DeESCer 


CR = mta "Ar - Dbirervis 


"FODE COPrIrDer Dk” 5SPOrE E 
NEVE E DOC SperD 5Sere sMiDms)o: co 








21 LET hsa9h=à 

12 DATE ET PARVARAL AIN dARIQ 
QlI El 2OQRRAllli.BInN COQRILITI ALI 
hn QOSLLLIlL, BIN ORLA. BT VITA 
43434. BIN 11222417] 4 

eo CATA RAIr IQRORCVDG BT IJIQUO 
PAC AIN IliPoOodAD Bm IJIITIVRRR,AI 
MN sILIIQRO . BIN JilJiliRa, ATI LILI 
JI!i2. BRIt IJSsllddd 

30 FOR «u=à TO 7. REBD 54: POKE 
USR CS ras NEXT o» 

40 FOR =Q OT: REBL PORE 
LAR E EXT 

ao BORCER Q PAPER S INK dl e 
e. 

Do PRINT aT 12,0 





TA PRINT 

o FOR =) TO Zé CIFCLE Itir E 
Ero IS, MEZT = 

ao CATA EIti QALIICAOR .EThi FLILi 
102, AIN QlIIVPAlIlA.BIti BLIIITIC.CL 
HM BOllIlLIVA, EI AGICELCLA ETH Cida 
APLCO O GIti PAIFAICOC 

as CDCATP Slhti ABIRICIS.ETti COZLll 
190, RIM QeRnriaga Ari Q2licIigilo EL 
4 PORILICA EIN 2QAVAlCEL, ATI ZOCO 
1220 EIN GARAIADA 

” FOR uzp TOY REBI FOrE 
ar Cega ,d: NEXT 

144 FOR v=d TOO: REBRD Oq PORE 
UaR CIC GA,! HEZT 

121 PRINT TItik E FRPER 4,AT JI&, 
1. "po.AT DB,dsCFrSAT 48.15, "FOR 
T 14,9, 0+": AT 13,4 +. BT 2Caó,la, 
“EU AT Lo,24;, CEL AT 18,30," PU; RT 
El.c3B, "+" 

1803 LET Cc=28 LET dg=5 LET GLEeF 
€ =2 LET widaz=a 

124 PRIUT AT QE, CEcareE Ercr 
esaT à4,I1S;, IHUERISE Z:CRIBGR "hi 
qn 

105 LET = LET sê 

1? LET =1ItyT o iRHESS: -Lts: z- 


CLUBE Zso 


TT] —T—————TTD————— 














CLUBE Zso 11 





Z27 THElU LET u=!-2: GO TO J8B”7 do PETUBS! 
13 IF x:3 THEM LET Y=Z4e: GO T 1222 REATORE 
Úlidr 1019 IF high:xcccore THEti LET high 
ll) IF BTTR iusL,y42i=z4E DR ATT =. (CCrE 
R o ix-L,4+42!) =45 OR BTTR o ix,g4+1L1i=4 tz? PRINT AT lê, 12, FLashHa Lá 
5 THEti GO TO ceu É? OVER 1, PAPER SCPLANTAS GU 
115 GO SUE 522 EIMADRAV;AT IL, 12,0 POR RRDISCA 
127? IP xs) ShND y=t THEM LET <c6 Ú é 
(EZETATrE+rIZS-S1: PRINT PT Z.B,=C 1222 FOR ezl TO claro tHELT e 
Cree: BEEP ,2,10: BEEP ,3,20: GU ljg4s20 CO TOS 
TO Is 
120 PRINT Th. Dar Rust NOTAA SCRRE O PROCRAMA 
12? BEEP ,.l,xs5. PRINT BT xog)" 
Co LET y=9912:0 60 TO ILE? 
O PRINT AT 4,4, ERICAT LI Tr 
2; PAPER Ss". PEBD e,Fo PRINT iZ-4ZR Ce Ffinital de arsficas 
BT e.F; IM 3, PRPER 4," Fr S2-72 Rourecentatao do sUgc 
=i? FOR tz) TO II STEPÃRAS. BREFZÊ no €ecrar 
«AL,L: MEXT 1 POR 1t=i TO QY STE aru- 121 Furmacaa do ecl 
P =.05D: BEEP .B1,? MET 1 De rinicao dk Caracteres 
geo PRIMT PT v,5;, PRPER S,' Ecafictoas Cro e Cd 
4) LET widazvida-l IP vwidazê 
THE GO TO Ido 
e - pos eus ' o, fm Es TO -s, é 
qEto LATA 1= l,cú d,lS LO, is 2,1 1032-125 Ertabelece as varizavesrs 
G,4,2A0 132,18,24,13, 2? , 2lL,E8B = a. CE o EE ca 
2s” cÓ TÓ Jess Do joga. Score e High 
sã? PRINT aT dot" Tr torre, SE couciídenadeas 
S0S IF INKEv$='S" THEN LET c=c- cida O OR O o ustká 
1: IF C<Q THEN LET c=0 amenas MIFLOUILOD CO MO tam 
S1iR IF IMKEv$=]/E" THEN LET dg=d+ GE PARDO PO O, asi 
1: IF d3g:7 THEM LET dr erifico é aproxima ica 
S20 IF IMKEv$g="7" THE LET azd- cas amu PRE PERO O as 
Lo IF d:ã THEM LET 4 =3 E O dad SA 4 vEStiruIstarl St Fe sso 
S30 IF INKEvg="a" THEN LET c=c+ altefatau de sccie, 
y UE IF c»o2à THE LET c=ER HECa SE Jfhvsler, BGI te gt 
ss” IF INKEY S=CHRS 2 THEN LET c º uma planta. a 
=C-2. IF c:à THEN LETCc=ê8 =iB-sBF Nubero de vidas RT 
SOU IF INKEY g=CHAS à THREl LET c que detlerétirs q GrSEm 
=C4>: IF c;pA THEN LET c=BR da destrusitac Jes 
S7R IF INKEVS=CHR5 10 THEN LET piantar, teclas de. 
d=d+2: IF 4:7 THEt LET 3=7 contrcic. dicesaitivo 
São IF IMREYv$S=CHR$ 11 THEN LET de dispart. 
d=3-D:. IF d:3 THEN LET d=3 jess-lgi? niteratar Sé store 
Sea PRINT BT o d,Cco Ih 50H ax. Ffrm dã JGGC:. 





Adapt. de ANTÓNIO AMARAL 
Porto 


ENTRAR LHãARm Mm) L PONTISCAO 


> e2eYR Poarntas., 
ARBRCOEFOHIJELMMNOPORSTULLHY + e 


+ + Per 
alia. 


Hj 
Fa 
Gs 


Parntas., 
BW Partos. 
=1i2Y Pantas, 


Tem de iccalizar 2ZQ inimigos 


ESESSSESSSSaSSSESaSRSaES 
rasa 


1 REM “BR, tava lo 
1) BORCER 1. PAPER Lo Tt To O 





RESSSaSSSaSSnaSSSSSESaSESE 
RBCDEFORIJELMNDPORSTUNLAY 


r 
Ui 
nó 
3 
r 
m 
+ 
+ 
=$ 
H 
:M 
Db 
— 
L 
mB 
8 
ra 


: 4 2 FOR &=1 En 25 
Eua to MPa 2 IF z$(a1=º THEM PRINTS 


E 
po MEZT é 
24 BEEP ,UlL,CODE zgis! -I0R: PR 
INT Zzg&iai;,: MEXT & 
ler) FOR a=l44 TO IS4S: 





12 





Q 7. BEEP ,0lL,30: READ cc: POKE U 
SR CHARS asb,c: NEXT bb: HMEXT &: P 
OKE USA CHARS 156,25S: FOR sai TO 





8: POKE UR CHARS 1S6+5, 129: NEX 
T &: POKE USR CHR$ 156547,255 

pal POKE 23692,255. PRINT AT 21 

“Tão PRINT MESTRA RR A o 
mECE FCF dar entrada das duss ca 
Crdenadas.CCCiB-y) Co CSequinda-se 

as Cocrdenadas. CCC CA-DIC, CC cr 


E) para desistir. 
130 PRIMA. toe" a 





q. PRUSE Q 
o PRINT » Ra PE ita 
cê Púrntasçoto o” 42 pon 

tas "do = 50 Pontos." 
+ iau Partos." “Tem se. LGcaliz 
ar 2à inimigas, 

lo?) DIM ag:15,28) 

182 FOR Azi TOS 

1hd CO MIA ZA: IF agix,y TO 3y+ 
aa 154 “ THEM CO TO 184 

170 LET agix,y TO 9+3+=]'mr 
NEXT q 

172 FOR 5s=1 TOS 

174 GU dUÊ cur IF sgix.sy TO us 
Bias! THEN GO TO 174 

I7& LET agix,y TO us42)=dadDoo ti 
EXT a 

i7Ya FOR azl TOS 

jao SO SUB 222: IF ggix.y TO y+ 
dl)” “THEN GO TO I1SR | 

132 LET agix,y TO g+))='dal: NE 
XT a 

las FOR a=) TOS 

Jão co aUR 22024: IF agbix,giss" * 


THEN GO TO 186 
133 LET sBix,giz="4o: MEMT & 
122 CU TO dr 


Eva LET x=INT iRNC+1S)+1: LET 93 
=INT iRnNDs2g2!+d: RETURN 

Ss PRINT AT Zi, e; CQuealtquer tec 
La Cars comecar": PAUSE Q: PAPER 
Ss: FOR as=1L TO Z2: PRINT o º 


“o NE&% 
T a: BORCER E: PAPER SS: INk Bo LC 
L: 


a 
SI” FOR s=1 TO 15: PRINT DT aa 
Con 


wA : 


O: LET HIT=0: LE 
Ss»: LET x3=d: LET 


SR PRINT AT 2, 


a 
$ 
9: PRINT OT à- 
5 
1 


+ 


ND ec a ns 
GALA E Go 
TD 
xy 
ty 
mimo 


a 04 
LTIELT A 


s,HT H-64,265; 


sm 


PRINT EEy Mi l,2; 

AT 1,17; à TIROS=]",2M0O, 0 0 
IF MIT=468 THEN GO TO 22) 
PRINT AI 20,1; "Coord. hora? 

ET S3= INKEYS: IF b$=º" THEN 


JS 


JF InNkEvyg=]0 “ THEN GO TO En 


Q IF CODE bg>a9 OR CODE Bã&cas 
MEri CO TO asa 

y4=ICODE bã51-6B4: PRINT RB 
1257685 

REFP ..1,6 

IF INKEvyYS$:>"“ THEN GO TO 38 


Ss) PRINT AT 212,1;“Cocrd. ver.” 
LET b$=INKEYS: IF bg="" THEN 

So TO Rau 

Sa IF INKEYy$=]0 “ THEN GO TO EM 


iva IF CODE b$>79 OR CODE Bg:aS 


Cu) (us 


O 5 + 
Si CS] 
4 +AP eh 
cs r 


51] = 
vs LA TA RR ame E] 
co cy no -4 TH 
UI Co Cs 
Tr 
Hm, 
Má, 





THEN Go TO 39 
“10 LET x=(CODE b$) 
T 21,15; bs 
420 PRINT AT x,Y,' 
430 G0O SUB ido 


ê 
440 PRINT AT 20,15; 
o “o GO TO ISA 


QL) IF amt:=za THEN 
dor; PLBSA 2;"n. de 
do. BEEP 1,-6: FOR 
STEP -l: BEEP .2s,a 


lrig FOR 5E=5 TO -32 

JA) LET amGzsun0-l: 
“ TMEN RETURN 

la) LET HIT=HIT+1: 
; PRPER 7, BRIGHT gd; 

lVSL) LET pairnt=20: 


12SQ IF agsix,yli="& 

a OR asix,gyi="g OR 
THEN LET paint= 
1060 LET s=e+pGint 


CLUBE Zso 


-54: PRINT A 


“HT 2Zli,d; 


PRINT BHiL;AaT 
tiros esgata 
Q=-5 TO -3R 
NEXT q: cú 


STEP -S: BEE 
ExT & 
JF s8(x,9)a 


PRINT BT x,y 
agBix,gl 


OR s3Bix,4)=" 
aBix,'3) = 


ir”) FOR B=-Za TO -32: FOR A=2 T 


O 7: RORDER A: REEP 
Bo tMEXT BR: PRIMT aT 
| PRPER 2; INK Gg” 


«Ra,B: NEXT 
Wo Y: FLaahH 1d 


joao? IF HIT=46 THEN GO TO 2sao 
112” RORDER S: RETURN 


2000 PRINT gl;aT 0,0 
JUET WECMmCG JESIETtIT 
crê 


» PLHSA 15” 
? 


OIL IF INKEvy$=]"4" CR INKEYvg='€ 


THên co To 2120 


2YlIS IF INkKEvS="Nº OR ANKREY g="n" 
THE RBREEP a,38: PRINT BI;AT A,a 


» PAPER &' 


“o go TO 
EV CO TO Z2Ia 
2122 FOR Aa=iTo as: 


SS 
FOR B=1 TO 


o: BEEP .2S,A+B: PRINT AT A,Aa; P 


APER 3, INK R,Agia,B 
EXT Rn 

2llr CO TO 32 

22202 FOR B=1 TOS: F 


): MEXT BR: bN 


LR B=1 TO 7: 


BURCER QB: BEEP .Ql,AsI0: NEXT ER 


: NEXT A 
sl” FOR n=la To Zl: 


Pd 
NEZT à: PRINT 


2220 PRINT AT 17,2; 
EGU EA PONTOS 


ts 


PRINT AT 8, 
BL,ART 0,0,” 


1 


“PRRARBENS COM 
o COM UM 


BONUS DE AMO, “PONTOS OO Fa 


aliado naSSsIM  AMOSS 
ssa Go TO araa 
3000 PRINT Ri;,nT 4.o; 


O PONTOS” 


“NOVO JOGO? 


B=aIM “B=nDo 
S2Iu IF INK EN $= 5. UR INKEvg='"€." 
THEN POKE 2320902,285:. GO TO 128 
Jo IF INKEvg=]NO OR INKEYyS=Or 
THEN POKE 23022,255:. GO TO aasa 
323 CO TO JRiR 
São FOR Azà TOS: Bz) TO 7: 


FOR 
BECP .Q1,0+5: BORCER A: PAPER EB 
CLI3 : MEXT B: NEZT 


32520 INK Q: PRINT 
9330 PELG LEU J09a 


LHANAUAL 


dis QK. QObri 


BATA 


“ec "EStE ETOGFEM 


8 Sera BuUta- 
1 Sa” 
3272 PAUSE lQ: PRINT 
: FOR  &=9 TO Q STEP 
lr, doa; 
NEXT a 


destruida edi 


AT 120,9," * 
-1: PRINT AT 


3: REEP .21,-20: PAUSE 40 


) 


o 


O AP” SE "0 2 > 


+! 


CLUBE Zso 











13 





SIA NEW 


“220 CATA 2à,0,0,24,24,2585,126,6A 
22, is, E) duda oa LG! So sas 
seio Gata d,4,4,38,8,88,127,2585,1 
23,2. à, 192, 192,252,254,25S 

are A DATA Q,42,14,14,255,285,255 
12”? Ps Ro ;d190,18,158,255,255,255,25S5 
;2.6,56,98060,255,254,252,243 

ara CATA 62,42,62,62,255,255,25 
“,127,2,22,02.20,255,2955,255,255 
o ada au Rad a EN RED o O 
qua. SQUE “R.eNavalo LINE d RORD 
ER QU PRFER à: CLS BEFP .1,6 
VERIFrF o “*” 

DCEFIMNIR CRAFICOS 

ata e em a 

4 GRAPHICS + TECLE CR“ 

alo. + o Paio 

cuba + “E+F+E" 

din + “HSI+sdSdr 

DA a + fa 

O + 4 

MOTE: 

5 pPOdEr a Ler 68 graFicos 

dEFITIISOASL VEPCIEL JE Partéga todo 


à Programa. 





Autor: Silvestre Cameiro 


Este programa mede a frequência de sinais entrados 
pela ficha EAR. Experimente, por exemplo, uma 
cassete com música. 


o 

ir 
Hz; 

ER 

Ss" 


;lIOs, 
;ES&, 


REM 
REM 


“Pre.” 


HEdSe FEqQqUENnCIS ste 38k 


IDPUt ma gseck ERBR 


Go Jo Igê 


PRINT MT IB,S, "FRED. = “:;PEE 


HF dB76a+2564PEEK 327/68," Hz 


RRAMNDCOMIZE USR arees 
PRUSE 58: 60 TO 38 

vi ess arsaso 

FOR f=-3222822 TO azgas 

aa CORE F,3: MEXT F 


LOTA Sa,ize,sz2,71,5a,itz28,9D 
4ú,23584,198,5B,71, as, 2,2,319 
283, TIS, 48,258, 35 ,pig,254, o 


3, Iio,32,254,34,4, 128/,58,1228,9D 
Ed,233 


, 134,22 R, 





Adapt. de ANTÔNIO AMARAL 


Porto 
1 ULESF cioaa LET ho =D: LET 
ng= filo PRINT AT 10,5; FLASH 1 
CEAPERE dm MOMENTO co TO Il 
S IF AOTTR (B+1,5) =6 THE PRI! 
TRT E+L,D INK E qe 
= RETUBN 

SO PRINT OVER 4 INK 2; PAPER 
3.BT 5 Dor 

Qi TE s=+ AtO Dn=18 BC h=1 THE 
N BEZP .3,28: LET 1=1+5:. IP trab 
O THEN LET t=22:. PRINT AT 2,0, 0 
“o LET b=2 LET EzE+1004:0 PRINT q 
T d,4S: Mr B;" 

Se LET aza+:INKEvg=]"5" BND ATT 
RR la+l.,D:izoi-cINKREvS='2" BND ATT 
Ro iz-Ll.b: Je: 

Sa IF ezl2 AND b=2e BND BTTR o: 
a,b+1:=a TnEN REEP .1l,22: PRINT 
AT 12,27 IM Pot co PRINT AT 2, 
BA”: LET bad 

AS LET b=b+INKEv&='EO AND b:= 
Ze BND ATTE ia,b+L:0580) -1UINKEYE= 
Ee AMO bp:=z2 RAND ATTR «3,b-1) 4:55 
t 

ee PR IN OVER 1L.B9T 3.b; Ihk &; 

Se JF IthkEvg=]'2'" THEM GO aUB qa 

2º PRINT ST à IA-LEN ATRS <=, TI 
Nk BB; E 

o“ LEI t=1-,0158: TF 1t4=0 THEN 
EO JUR ado 

SO PRINT AT 21,5; Thk, 5; PoPER 

Zitg: TO TA PAPER 2; x 
o PRINT AT c,3; OVER 1; INK E 
3 IF ATTR ic+l,dizt THEN POKE 
JFEVNJR 5 POrE aASQ2S,28 RanNCOMI 


“d 


+ Fm Xt 

Qt fuim+s 
Mm. Do 
57 


+ 


e 


mm - 
GQ (3: 


DB + 


DL De Muita Do 
£ 


FA 
O - 


- uy 


e 
untar a 
4 ICN ES MS 


a 
rs 
be 


NC T4 ra My 


Lu 


Uirtis Po hs = 63 
E a ans E E) E 


(1 
mn 


+ 


+ 


E 
Ts 
Cy 


uz 
3 Cy 7) 
3 
Meo ADAL A TPMyEHtU 
+ 


Motas n) Ed 


ú 
tt 
mr 


ti H 
- PInHú 
A 1 ]H+ 


+ | pe 


cs 


e 


im -—-mi 
“Dfimama 


BHO BTTR ic 
-L,dissAlsric: 
26 ANDO ATTR 


AT Cod; 


ni mr 


cms 
- 


WE ste 


L 
Fo U-n 


Is 
n. 


ANK 5; 
S aND 9g=A THE 
q=). PRINT AT 4 
a a ” BEEP . 


RR a 
Fa D+ 


io 6 


hs Arg x 
o 
tt 
ts 


t:=128 THEN L 
L:8T cad; 














14 CLUBE Zs0 
ETA PRINT AT 4,23. 98! TO dq ER TECLA Para COMECAR 
230 PRINT AT 22,1, FLSAM 2” 3744 POUSE Q = 
ai 39784 POKE a2SA2E,2S. RANDOMIZE UT 
22) GO TO Sd "o. R 3520020 
800 FRINT AT a,bh; DUER 1;CXUsAT 2760 RETURN 
Cid; QUER 1:80" 9720 REM U,D.G, “5 
321 PRINT AT 21,27," * 98022 FOR g=65203 TO 55475 
si) FOR n=l2 TO 2 STEP -2: REEF 314 REBD Z: POFRE d,7.0 MEXTOo3 
«lr: POUSE Io MEAT rm Qalis REM DATa U.D.E, CG 
313 POUSE 7: REEP .075S.3. FREE “azia CATA Jair, lis, 124,560,56,40 
“e PRINT AT a,b;pCio. REEP ,.ATE, (i?2.l2a,2590, 129,2545, 129,2558, 129 
E 1.255 | 
SE PRINT AT a,5,0 9322 DnTa ce, le”.Fa,73,.12?7 ,127,a 
Gal LET m=mn-L. IJF mni=? THREH CO d,09,1827,34,69,65,685,65,55,62 
To 2a sai? CATA 3,93,732,02,3.20,34,034, 
Si” PRINT AT 21,23, ItK 4;m61 T B4s7.B4T,B4FP,R,Ê, 20,0 
UU ui;e 3350 CATA Q.24,SoO,II2,104,4,2,0, 
oS”0 LET 8=19: LET 6b=z3: LET c=4: 01;,801,81;81,81,581,51;,581 
LET d=26: LET 9=0: PRIhT AT 4,2 q360 DATE 2&,2.4,A,15S.7,7,3L,2,0, 
S;46: TO jl Q,2.255,254 2S4,254, do, Fi, 127, dê 
360 PRIMT AT c,d; DUER Lê Trder,8585,40,1260,254,254,254,254, 
asa ca To si 2S4 .255,22,8 
da REM FIM DO JOGO 9272 CATAR I2a.los,129,1J9S5,1292,1%9 
So IF =s=ha THEM LET nE=. FEI aA,iza Io, FPI, do, as ,A,d2,Ta » 
MT OT 5,4, IbMvik 7; PSPEF 2, cticua “asda RETURN 
SUDRE MA, !! TUAS INICISBIA” “329 REM UNRIAVEIA 
9241 IF c=hs THEM FOR n=-52 TOS D2922 LET t=22:0 LET +=" AMMAMHII 
q STEP 5: BEEP .1,n: MEXT n AoLpisitm Tia ti HALO 
902 IF e=he THEl INPUT 65: IF LL 322 i=8: 18="º8 MN" 
Ely h$:32 THEI GO TO SP aaa Per s=l148: REA Es: LE) Cad 
22 PRINT AT 21, =S, o LET d=28 
931 PRINT aT 21,27:"  PEINT & Vara LET mb= FETO: LET m=a 
T IL,2; IHE E; PAPER 1; FLASH 4 395 LET u=2: LET 9=4 
lá FIM DO JOGO Q32R? LET h=Q 
Qai LET =-A 
“sz PRINT AT IS,R IuHe Q, PaAFIZR ais RETURN 
+ HOUO JOGO > e tá QuIS REM ACREEb! 
n 2Qoz2zê RORDEIR 2. PAPER 2. INK 7. TU 
diz IF INKEvg=0=2" OR ItlkEvõã="]0 L5 : FOR n=k Tu 1? STEP 2: PRINT 
THEt REATORE 5527. GO FZUB 3523 ME Rato Th É Fe 
GU SUB dsga: so TO SI NEXT nm 
Sa4 TF IHEEvg&=]n" OR ItkEvg='t “925 FOUR n=zl TO I4:. REBD y,x: PR 
THEt; PRINT USER INT AT o y.s INK 2."'B':27T 9+41,.% 
ai) GO TO S2Z4 INK 2: BAT y-l,x INK 2;"*B": tl 
irez CO JUR a994., FEM SOM EXT rf 
Ilvlià CO aUR dora. REM UFRIAUVETIS “vz; CnTA G,a,aA,22,PD.P,IlF,7T,2S 
12420 CO SUR Sar. REM GRAFICOS SAD dd, ale. dI, dd, d7,AiB,E 
Ira CO SUB 720. REM IhiFO 2,25: 00,17,24;48;7 
ivid CO FUE as). REM IDREES ao FOR n=1 TO lã: REBO gy,x: DR 
12032 GO TO &: - REM JOcO BO INK Bsga.x:o MEXT nm % 
q602 REM IMSTRU ICOES “ale CONTA Y,l44,127,AL.L,0,127,- 
72” BORLER 1: PAPER Lo It To UT 31L,0,.-144,-254,28,0,144,127,31,12 
LS G.-32,0,-142,-254,0 
av1) LET 15=" Bem vindo a Cala 923 PLOT PQ 
aceCiunbrada.. TETE dE Paecgar E Ci quai. PLOT 252, 146: FOR n=1l TO a: 
r tadas BEdIiwieEcnes Sa coes REBO x o.4: CRAU INK 
€ apanhar aLsarras que LE Box ga MEXT fi 
encontram nauúittialmia divizal, Cad Q32s CATA 2,aà,-12,20,84,-4d 
O jarra, dEVELEr Ccultacadeo nz car “927 PLOT 245o,154: FOR 
rintso, nai TO ?F: 
0H impedir à zeu CÊ, RESD x,3: CRAU INK 6;x,39: MEXT 
ECtivo tem mM - Fantacma n 
* - SkeLetor qo22 DATA P,a,2,A,-S,120,-4,0,-S, 
1.10 Fantasma Eode -1R.2,28,2,-& 
cer Evitadaraszenda QT Lace, qa PRINT RT I2.), IME Z;Ca-;A 
Q SteLe ton; ves ndC OQ martelo, É, 13,2: -INK 2 
= aio PRINT ar dear, AMA 3; A” 
TECLAS DE COoOMTROLO: 2345 PRINT AT 4, às: EC TO q) 
o 9947 FRINT aT 21, 1, INK 7?;“TEMPO 
| - Subir H o INK à, PAPER Z;tãi TO ti; PAR 
- DESCEr OQ - Esquerda p PER Q;0 Co INK 4; MS TO m) 
- Direita 7 - Fazer o tacar 9948 PRINT ar 21,34; E 
a717 PRINT “Cao agr 5 SD 22952 PRINT AT 2.0; INK 4501 s; 
BRB Da” INK ECA AT Q.2l, INK Ss; :h5 
713 PRINT = = == a sé ce TINK 7. AAA N 
== ===" a953 PRINT AT S,à, OVER 1, THk q 
72) FOR n=l TO LEt :1$&:-/ BEEP .,a? E 
ERR Shen quno tas MEXT Ti sa » 
q7: DRE 35004,28SS5S. PCk PES, 
O RANGOMISE DER 3S0oa. id na PRINT AT 4,28. QUER 1; INK 
9732 PRINT Ee; FLeSH 1; quALCU ec 


— FEED DES E E DN DESCENDE VS EN SO SE USE PS POSSE SST SUE SU = 


CLUBE Zso 


E = PRINT AT A,IY-LEN STARS he; 
IN r 4 he 
“a 2 PRINT AT 2,15, INK 6; PRPER 
W 2! ; 
q PRINT o, INK. bs: AT 18,686; = 
SS cANK EB; 
rRETURIN 


REM SOM 
REM 50M DA SIRENE 


DEF FM aIini=ilCODE agini -453 
CODE sgini 5a) + (CODE agini-S 
NO CODE 8 ini>641 
1 LET ag="Faliiagcacotas ASS 
1IFOEFEFEEIVELD79431)0FEZS2ZUF4ICI 


“O Co) Fis 4 


21D DIDO 
Ey 


“O 10 7 TAG EM TO DO DO A 


O 6 N3 10 
AINDA ONO NS ALLE EMI SAS o e E 


EaFarRCar 
2 FOR j=1 TÚ pr ss STEF & 
3 POKE 3I5000+) 2, 16+FH a tsi+F 
M Lo+1)0 HEAT 
3904 RETUAMN 
2905 PEM A BU DEFERIU 
q90A REM A BC DEFSERTOSr, 
2907 REM 
9203 REM L Mt 
(a Ve 9 REM LM 
LPS A ASS DOF DR AU E 
Bem VINDO E Cos =5somDr=de 
TETE de EESser CEM iDli=s ES 


DivisDes CD Es E eperfer Es 
Eras DUE Se Frocriream ne 
Liiimo DiviSED. LECCE igiTe: CELE 
Ser COlDCEla ne ceirirnie: 


R impedir D Sei DDJEDÍHVUO Jem: 

- renizsHo 

* - Spetletorm 

“0 feniesms DOCE Ser eviizip 
izzenvo um il=zco. DD 5Sheteior: 
LSENDoOo D mer ieios: 


“TECLAS CE CONTROLO: 


D - Subir A - ester 
O - Esnuerds "P - Lireiis 
É - F=eer Dioll 


e qa 


k 


E 


AO 
TR 
VITA 





1 
FUMA: 
EIN 


E 


km 
JT 


PRESO 


a 


TEST GAIDARDM ASIAN RX 
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CeriniA GRAFICOS 


* - Graphics + teciz CB” 


o — er Es Ed A rr 

m — re + er a; Pr 
me Pr Tr re rr p +4 re 

e re + er "- er 

8, -— rr + Pr “1 rr 

H — e» s da es Ed ad 
Es e ,» + er dé a +L rr 

=| - er + Pr G Le 
o oi - . eme 

3 — Pr + ” "a rr 

8 m Pr +. "e sic E er 

ROTE : 


DBAPHICS- CAPS 5SHiFi + GFecie CS” 





FERNANDO PRECES 
Sacavém 
QBREMN FROCFRANA 
ALMEIDA PRECES Et 

REM Ca” 

GOZUB J00U 

RAND 

Lo 

LET Nlsig 

LET AaI=ô 

LET RC=Q 

LET I=TtHT iglsEnND: 

LET J=INT O (204RND: 

LET MI=O 

LET tizzQ 

PRINT AT I.od; "Mao 

FOR L=1 TO iEND+T00: 

NEXT L 

GOFUE 2200 

LET xg=ItHrEYS 

LET Zg="5 

IF NOT x$=)0 AtD END: 10, 2-- 
THEN GOTO J7Q 

GOSUB Sado 

IF MI=0 THEN GATO Fra 

IF DES d(a-micz go A 
143 THEN GOI UB "ADA 
IF aAIzêà THEN GOTO Fa 
IF ARBE5 iA-Tica aMND A 

THEH GOTA avo 

S IF Zg='Y" THEN GOTU pa 

Q IF 065 iN-id+lis:2 AHE 

(M-Ti<2 THEN COTO 3520 

40020 IF xg="" THEN GOTO 700 
42? IF Xg="do OR xg=]"Fo OR z6g= 


vo Qi co SN E Catu á ny to 
CS ES 3 TS E SNS ES CON 2 EM, 


ts há fo 
+ E 
Ey 13 


US DU Rae UR RO 


ADS DS AMD 


Et 
1 


po 
a NZD ES ES 


Li Cy 


Nº OR Xg=0M" THEN GOSUBE 4200 


422 IF xg='A" “OR X$=05" OR «=g=' 
x" OR X$="Z" THEN GOaAUE 3920 
442 IF xg="i" THEN GOSURB E a 
ag” FOR L=1l TOS 





... 








e0lr 
Cor 
22020 
22to 
020 
SOZL 
20302 
sSasU 
250 
200 
3270 
J220 
S2s0 
SIRO 
Jara 
4220 
2a 
4230 
J2S0 
4030 
4274 
4230 
a T 
2+120 
No 


4220 
SPRA 
Saga” 
Sol 
RND à 
Seo 
RNDia 
ara 
RNDA 
be 
RND: 
aaa 
S200 
ara 
SIR 
ara 
S320 
[mf Ra 
ETs 
UI 
Gois 


AS DESTRUICASZ: 


E Co Ps Na Ms NS do q 3 ps 


dd odod Sd dd 1 TD ad 
SS 5 SS) (5 5 IS) 14 12 665 
4 

E PIS CONES SESC Ds 


“MI <2? 
"RR 
7YQal 
“vaz 
“0ads 
v1202 








NEXT L 

Goto 2200 

FOR L=1 TO IgA 

NEXT L 

COUTO zo 

IF AI:>9 THEN RETURN 

LET ARI=! 

LET ARO=a0+1 

LET n=1+INT (RN Sel] 

LET B=1I+INT LRND & 2a) 

PRINT WT AR,B;,: dh 

RETURN 

PRINT BT Todo" gi 

IF ag='"4" THEM LET Jd=d-l 

JE xg$='"» THEN LET d=J+l 

LP X6=05" THEN LET Isi-ãi 

LP X$2º2" THEN LET Tslsl 

IF I:à THEN LET I=Q 

IF 1 id THEN LET dad 

IF "32 THEN LET dJ=I30 

lr r £l THEN LET I=21 

PRINT AT Td: Ae 

RETURN 

dr MIizô TMEN RETURN 

PRINT AT MM 

IF x5="Nº THEN LET N=N-E 

LF Xg='"k TMEMN LET N=zN+2 

IF ngB=': THEN LET M=M+2 

IF xg="4" THEN LET M=M-& 

IF M-eci OR M:<à OR N531 0R du 
HEN LET MEI=Q 

IF nOT 9I=zA THEM PRINT aT mM 
ma 

RETuR-ty 

PRINT AT A.B," ú 

LET [=z3+30.2+4A0 

IF A:I THEN LET A=A-INTOoil- 
IF RI THEN LET A=A+INT o í:b+- 
IF Bu THEN LET E=B-INT É + 
IF E THEN LET B=B+INT ils 
IF A:21] THEN LET n=21 

IF Rã THEN LET A=Q 

ar Bill THEN LET Bal 

P B:3Q THEN LET B=I02 

PRINT AT RR B;C:B: 

RETARS 

IF MIO THEN RETURN 

IF MO<=2 THEN RETURN 

LET MC=zmC-l 

LET MIs=zi 

LET M=I+z 

IF m:e2l THEN LET tM=tái-d 

LET nN=d+= 

IF N:31 Ei LET N=N-4 
PRINT AT Mon; 

RETURH 

PRINT AT 15,0; CNAUES INIMIG 


RE 
PRINT RT 20,0; CMISSEIS LANC 


ER 
OTA 


cv+tl-hico AND ABS oil 
THEN. cota ssa 

FOR L=1 TO Isa 

NEXT L 

CLS 

PRINT AT Tod; Aa" 

FOR L=1 TO iAND+Í122: 








22 NEXT L 
&aQ GOZUB 22 
2a RETURI 
QS LET Mg= a 

2gdio caro ET 

GSlA LET M$='2 SEL MISAEL ATIHSI 


=” 
220 PRINT AT LJ; mao 
3350 FOR L=1 TO 


aass HEXT L 

so) PRINT a” Jo DME; a THE E 
'O JOGO ACABOU, O, ,CHRISES DEZTR,= 
":4A0s21.;" MIASFIS="; MO 

Soro PRINT º QUER TEHNTAR DE moto 

2375 INPUT T& 

GS/7E IF CODE fãzSEe THEN GOTO is 

sas STOP 

Sa) PRINT EATSOLHA táD CIÍPADO 

GY0E FPRINT o... CG alif NHAUE ESTA a 

ARIADA. VOCE" 


GAIA PRINT ctãa TEM CAMPO MaAGHo” 
ICO EXTERIOR" 

GAlLa PRINT Car ATACADO DEVE Fu: 
R, LBNCAHOO” 
Qdzoa PRINT o íoa 
JSsEIS SOBRE 
9925 PRINT CO THIMIGO, El HGEILA 

ENTE VECERA. ' 

Ma) PRINT :25º08 om tal 
(Zi XI MOUERM EU 

aVISo PRINT CAE tHiAã 4 LItinBI DE 
RUMO, O ipi” 

GALP PRINT CLANDCA O MIADEL QUE E 
COMANDADO à 

Q045 PRINT 'DIATAMNCIA FOR tds 
CN) Misc DtYS' 

Q250 PRINT C'PFOR LEZEA COMNZEGUE L 
ANCAR A HAVE: 

aas PRTkIT CNO HIPER EXPADO, PAR 

q SEU ALTUTOS 


E 
E 
tai 
z 
Ui 


4 
3. 4.4 & 


QVeo) PRINT ,,CO iai LIZEINOAdo 
SO JOGO, 
QRasS PRINT o, PRIMA semMcLi++ FARA 
COMECREC 


20265 INPUT Lg 
997) CLS 
9074 RETURN 





FERNANDO PRECES 
Sacavém 


ALMEIDA PRE Et A:1S22 

3 REM = 

S LET Tg='<:PERSCEUICAO nO TU 
EMBARIHOS +" o 

E! PRINT TE. CQUEÊ IHNSTRUCCOE 
> 1524: 

IY IMPUT É $ 

1S IF CODE E$g=-SE THEM GOSUE JO 
2a 

q PRIIO 

ES LET L=IMT t(IOIEND+I! 

o LET ve 

Ze LET F>ê 

sé LET úzg 

Se LET R=D 

40 DIM 2GILoS' 

So FOR TI=)l TA o 

BU LET SgiT: = “HE THT :1J94RHD+ 
21 

PO LET =g(T.Z: =CHR$ IHT o iTaskt 
D+ 2: o . 

EA FP agiti="Hê THEN GOTO CR 

SA tHEXT IT 


lg CLS 


CLUBE Zso 





> 


- 
id 


CLUBE Zso 
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20 NELT II 

20 ARREEGUE e D:r E 
a" 21 :1 

230 PRINT Ao 12. J0 THE 21. 
MOUVIM. CITAR 2). CARGRA THE cl 
(CABATES O 

=420 LET NM=lQ2 

502 LET ti=zi4 

zo0 LET C=128 

00 LET Fsi 

SID FOR Iz1l TO (TSC) 

Vis NEXT I 

S2R LET r$S=INKEYS 

30 TF Kk$:0SC OR ng: a! THEN GU 
TO 22 

342 JF FF THEN PRINT AT Mati, CR 
3584 LET na=M+:ing="A" AND M:lai-l 
N$=)7“ AND Ml: 

Soa LET NM=znN+:ng='30 AND o nNolal-! 
K$="S" AND t4.1d1 

SS? PRINT AT MN, 

30 LET Cs. 

430 
“"ATORPESCOS 


VE C"NyLPO p 


in. PERSONAL COMPUTER 
Adapt. de ISABEL CRISTINA 


XS e OS tridimensionais é um jogo para o micro- 
computador NEWBRAIN. 

Joga-se numa grelha de 4x4x4. O utilizador joga com 
os XSeoN.B.c/os OS. 

A ideia consiste em criar uma linha com 4 cruzes 
antes do N. B. fazer o mesmo com os O'S; as linhas 
vencedoras podem estar num único nível ou ao longo 
dos 4 níveis, na posição vertical, horizontal, ou em 
diagonal. 

Para dar entrada de 1 movimento dá-se 1.º o nível, 
depois a coluna e finalmente a fila (todos entram c/ 
caracteres numéricos) (ver exemplo). 

Depois de um lançamento ter sido feito, já não pode 
ser alterado; mas se a casa para onde jogar já estiver 
ocupada, o N. B. dir-lhe-a, e terá de repetir de novo o 
movimento. 

O computador tem uma vantagem muito grande 
porque trabalha num logaritmo bastante eficiente. As 
jogadas feitas por ele encontram-se nas linhas 1600 
— 1760. Cada lançamento possível é feito com 1 
factor de vantagem, calculado na base de se prevenir 


$e2 INPUT Lg 
325 
4s20 
s22 o 
+52 = 
Se?) LET = 
MI ++2+40B5A; + 
474 IF D:o 
2439) LET i= 
+22 TF NOT 


são NEXT 1 





CLS 

er” GOTO 20 
coro Cis 
CBlR) PRINT T “JR SUBMBRINIS 
SUBMERSUS Ha 


A 


e 





&. 

NIMIGOS EZTAl = 
A BRREA-PATRUlLHA “MANTENHA Az 
TECLANA DO CUFSDRO  "CARREGADAS , FE 
AS LARGRR, CARGAS DE PROFUNDICDOA 
DE SAO DISPARADA. zE FOR ALUVEdA 
DO SERA CESTRUICO, FENAÕ,O SOMAR 
DAR-LHE à DIATaANCIADO SUBMARINA 
MAIS PROXIMO. ERA: ES 
TE SUBMARINO SJARER AURA POsSIcaDr 
E LANCA TORPEDOS. TEM QUE SE Mo: 
ER ANTEA QuE ELECIAPARE E O CE 
STRUR” à 22CACAOR 


2022 INPUT L 
PYAS CLS 
eds RETURN 


que o utilizador não complete nenhuma linha, forman- 
do ele o maior número possível; o cálculo é bastante 
eficiente e quase se chega a pensar que é impossível 
ganhar. 

Para adaptação do programa a outros tipos de mícro, 
apresenta-se seguidamente uma lista de comandos 
utilizados pelo N. B., neste programa e as respectivas 
funções. 

Qualquer dos PUTS utilizados pode ser convertido em 
PRINT CHR$(X) noutros mícros (segundo o respecti- 
vo código). No N.B. só se utilizará PUT X. 


PUT 2-Toda a linha lógica em que o cursor se 
encontra é apagada; as linhas abaixo so- 
bem para preencher esse espaço. 

PUT 6-— A posição do cursor será sempre visível. 

PUT 7— A posição do cursor deixa de ser visível. 

PUT 10 — Move o cursor para a linha física abaixo. 

PUT 21 — Quando seguido de “Get x, y”, o cursor 
volta para a posição anterior. 

PUT 22 — Seguido de x, y, o cursor vai para coorde- 
nadas específicas. 

PUT 28 — Envia o cursor para a 1.º posição da pre- 
sente linha lógica. 
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PUT 31 — Limpa o écran (cls— noutros micros). 


EXEMPLO: 





Coluna - . 
NIVEL 1 NIVEL 2 NIVEL 3 NIVEL 4 


1) Coordenadas - Nível - 2 
Coluna -1 
Fila - 3 


OS O'S assinalados indicam uma das várias posições 
em que o micro pode ganhar, se não houver nenhum 
X a separá-los. 


BOM DIVERTIMENTO! 


196 REM 

310 DIM M.63,62,WC63)D,FCEZ>. HCV. HT, ECIS>, GC SFA, CC I1B7,0C 152, BC13) 
220 OPEN&D,B, "253" CLOSE41  OPENHI, E 

320 ON BREAK COTO Soy 

348 GUSLE IDA 

250 GOSUB Sugam 

1900 REM 

1B1A PllIT31,22,9,2 

19826 PRINT'BENVINDO RO 3-D ZERO E CRUT” 

1934 PUT22. 4,3: PRINT Ota ota tes adota 

1954 PRINT:PRINT:PUT22,3.S- PRINTOSCORE NEM BRAIN “5C5," HUMANOS", HS 
1080 FOR I=g TO 75 NClo=0 NEXT 1 

19290 FOR [= TO 63:60 19)=0: NEXT 1 

1186 FOR [=8 TO 15 Ec l2=8 NEXT 1 

tt1Q Mi=1.01=76 - GUSUE 10000 

1128 Hi=0:2=0 QC( 1)=83 Cucoo=73 

1130 XC1)=0:XC2)=B Li=99"|H=4a 

1262 PUT22,1,26,6,2Z-PRINT'POSSO JOGAR PRIMEIRO csono" 

1220 GET41,2Z2:IF Z<-118 AND 2<>115 THEN 1220 

1230 PUTZ-32,] 

1248 IF Z=115 THEM Hi=i GOTO 1586 

1394 PLT272.1.20,2 FRINT'A SUR JOGADA NUM. “,MI-HI, PUT S PRINT", POR FAVOR. ..",-PU 
T9S,4,8,95,8,8,5 

1328 UF=ce-ccMiI-H1)D>5> 

1338 GOSUE 3800 

1370 Fi=16$FF-ISSXINTCFE 10 2-6&INTOFF-1002-21 


1399 IF G(F1><>2 THEN FUT2Z, 1.28. 2: PRINTOCASA OCUPADA - TENTE DE NOVO...", PUTOS 
.25,95,8,8,8.0F=25 GOTO 1334 

1484 GcFIlo=1:/X=0:7=0- LH=F1 

1485 GOGSUB coBaa 

1418 FOR El=0 TO 66-34. 1I-HESCSSNCMC FI e s-TE Ss 

1428 NI=NCMCFL,BL>> 

1438 EL=ECINTECMCFI,B1L2-47> 

1440 IF Ni=3 THEN ==1 

1458 IF NI=INTCNI-S944 AND H1I>3 THEN di=6-1 

14680 IF Gi=g THEN Y=1 

1478 MchcF1,B15>5=NIi+1 

1489 Z=8 IF El-INTCElI-8>48<7 THEN Z=1 

13490 Ec INTCMCF1,B1)2/4 2)9=E1+72 

1590 NEXT B1 

1518 IF X=1 THEM PUTZ22.1,20,2 PRINTOGANHOU — NADA MAU PARA UM AMADOR +“ H5=HS+] 
GOTO ziwy 

1528 IF Y=1 THEM Zugo 

1689 PUT2Z,1,24,2Z-PEINT'ESTOL A DECIDIR A MINHA PROXIMA JOGADA tº PUT 21 


1685 NI=INTCCMI-I + 4 o4G 

1612 Fi=-LaBHA 

1620 FOR A=0 TO 65 

1639 IF GcR>< 28 THEN iroy 

1644 T=H El=u 

16580 Bl=6-34 1-ABSCSGNCMCA,E 2/5274 
1660 Gi=<Bl-2-1L)47 

1576 FOR Cl=u TO 61 

1686 Ci=e HeMCA,CI 204 

1690 T=T+We NI+DI +PoEe INTE RCA EI o 
ima ElsElL+HCDI » 


E GI+4D1) 


1718 NEXT Ci 

1720 IF El>10 THEM El=iã 

1738 T=T+C< EL > 

1748 RN=RND 

1750 IF T+RN>F1 THEM FPi=1+8.5 FI=HA:T=E1 
1768 MEXT À 

1770 GcF1 72 

1780 LC=F1 

1799 GOSUE Zagam 

1800 x=0:Y=& 

1816 FOR Bil=8 TO 6-Z4C 1-AESCSGNC MC FL. 62—76225 
iza Ni=NCMCF1,E1L 5) 

1830 El=Ec INTCMCF1 BlL>/24545 

1844 IF Ni=12 THEM X=1 











18568 IF HN1:4 AND N1I<>8 THEN Gi=q1-1 

1368 IF Gi=G THEN Y=1 

1370 NcM FL,BLII=NI+4 

19880 Z=B: IF El<56 THEN 2=8 

1399 Ec INTCMCF1,B12-/4))=E1+Z 

1986 NEXT B1 

1918 IF X=1 THEN PUTZ2,1,20,2 PRINT'GHNHEI — SOU O MAIOR!!!" -CS=C5+1:GOTO 2100 
1924 IF Y=1 THEN 2808 

1938 Mi=MI+1 

13946 GOTO isam 

2000 PLUTZ2,1,20,2:PRINT'CASTIGUS-—-————— OS ru 

ZolG Co=0S+1: HS=HS+1 

21980 PUT22,1,23,6 PRINT'OLUTRO JOGO Cscn 27", 

2114 GETH1,Z IF Z<>ila AND Z<>115 THEN Z1i1g 

2120 PUTZ-32.7? 

21380 IF z=115 OR 2=33 THEN GOTO 10004 

2140 PUT22,1.23.2 PRINTºOBRIGADO FELA JOGADA — HTE BREVE.“ 
2158 ON BREAK GOTO B&B ENL 

2800 FEM 

2017 FF=0:S5=g 

3815 PUT21 -GETX2,Y2 

3920 PUT22Z,1,22,2,2Z,0F,22 PRINT'<NIVEL> " FUT2Z,K2,VE 
3030 GOSUE 4000: GETHI,F IF F<43 UR F>S2 THEN Soa 

3948 FF=1960kF-43 >. PUT F.et GET K2,v2 

3045 FLT22.1,22,2,22,0F,22:PRINT"<COLUNH “PUTER, NE, VAZ 
3050 GUSUB 4904 GETAL.F IF Fogs DE F “uz THEM S0SG 

3800 FF=FF+1BKCF-48)>:PUTF,Z1 GETXE. To 

3065 PUT22,1,22,2,22,0F+4,22 FRINT'SFILA: " PUTZE, KO, TE 
sura GUSUE 4000-GETR1L.F IF F<o43 OR F>52 THEN sora 

susg FF=FF+F-4S PUTF Co. l,2o,: 

3094 S5=-1 GOSUE 4004 

3104 RETURN 

saga REM 

2005 PlT21 GETXZ, 12 

agia FOR I=1 TO & 

4915 IF xCL>o=8 THEN 4858 

4017 IF &sS THEN ag4a 

4920 PUT2Z2,ACI>,TC1l>,20 GET CC 

4038 IF CC=0C<I> THEN PUTZ2S, selo, wc 14,32 GOTO 4aS4 
s94G PLT22,MC Lo, YVCIZ, CCC IT) 

s954 NEXT 1 

406A PLT22, XP, Y2 

quro RETURN 

soa FEM 

SML RESLIME 

iHaga REM 

19814 PUT22, 3. ly 

19028 FOR 1I=4 TO 65 

1UB%A PLUT46G, 32 

Ijygs7a IF INTCcI+172/162416=1+1 THEH PUTOS, Lo, 10.32.32 GUTO Lois 
tyaso IF INTes [+12 4 44=1+1 THEM PLUTS2.3Z 

DOM NEXT IT 


fais FETUPH 
zaga REM 

2mais FOR I=1 TO cz 

20615 J=LH-[F [=2 THEN J=le 

coli? IF J=95 THEN cooso 

209020 R=INTCJ-16> 

20030 vc Lo=io+2%R 

20040 S=INTCC I-16XR 2/95 

20050 XC 1 7=5X10+€ J-16XHR-4AS v$0+S 
eao7a PUT2Z,XCIlo,WCI>, CCI» 

coeso NEXT 1 

20090 RETURN 

soGoa REM 

6VBLO FOR I=G TO 6 

sGB20 FOR J=Bb TO ES 

EA930 READ Mc JT,I> 

eggs4a NEXT J 

saAGso NEXT I 

EoosG FOR I=Q TO 1S:-READ GCI NEXT 1 
EBB7A FOR I=B TO 7:READ Hc 1I>: NEXT I 
EBBSA FOR I=Q TO 63: READ Wc I>- NEXT 
EBB9G FOR I=B TO 16-RERD Cc 12 NEXT 
62100 FOR I=G TO €3-READ Pc I>-NEXT 
692118 FOR I=B TO 13:READ BC I> NEXT 
Sa120 RETURN 

69200 REMADATAX 


a pad pusá fd 


60205 DATA 0,0,0,0,1,37,38,1,2,41,42,2,3,3,3,3,3€,4,4,35,5,5,5,5,6,6,6,6.44,7,7, 
47.32,9,.6,35,9,9,9,9,10,10,10,10.44,11,11,47,12,12,12,12,13,37,38,13,14,41,42,14 
[15,15,15,15,16,33,34,28, 16,20,24,28,16,20,24,28,16,45 
60210 DATA 46,28,17,21,25,2>2.36,21,25,39,90,21,25,43,17,21,25,29,18,22,26,90,96, 
22,26,39,40,22,26,43,13,22,26,30,19,33,94,31,19,23,27,31,19,23,27,31,19,45,46,31 
,32,20,24,35,36,1,1,39,40,2,2,43,44.20,24,47,4,93,94,4,17,97,38,29,17,41,42 
60220 DATA 29,7,45,46,7.8,353.34,8,13,37,38,30,18,41,42,30,11,453,496,11,32,23,27,3 
5,36,13,13,39,940,14,14,943,44,23,27,947,48,65,66,52,97,48,52,61,58,52,48,62,52,69, 
70,48,49,56,60,53,64,459.553,67.58.53.43,71,533,59,63,49,50,60,56,54,68,50,34 
62230 DATA 71,64.54,50,67,54,63,59,530,51,69,70,55,61,51,53,57,62,53,51,58,55,65, 
68,51 ,SE, TE, TE,6O, TE,TE,TE,TE,TE, TE, FE, TE,S9, TE,TE,ES,TE,TE, TE, PE, TE,SF,EL,7E,76 
52,62. VE. TE,TE,TE, TE, TE, TE,TO,TE,76,61,ST,TE,7E.62,5E, TE, TE, TE,TE, TE,6B, TE, TE 
60240 DATR 56, PE, VE, TE, TE, VE,TE.TE,TE,6I, PE, PE,59,64, VE, TE, ET, TE, PE, PE, PE, TE, PE, 
76, TE,6B.TE,FE,TI,PE,TE,TE,76,76,65,66,76. 76,69, TO, TE,TE, TO, TE, TE, PE, PE, 76, TE, 76 
69, PO, TE, TE,6S, 66, TE,TE,TE,TE,TE,EB.TE,PE,TI,TE, PE,TE,TPE,TE, TE. TE, TO, 64,76 
690250 DATA 76,67,72Z, 76, TE, TI, TE, TE,TE,TE,TE,PE,TE,FE, TS, PE, TE, 7S, TE, PE, TO, TO, TE, 
72,73, 76, TE,TPA,TS,TE.PE,PE.TPE,TE,TE,TPE, TE, TE,TPE,7S,TA,TE,PE,7I,P2,PE,PE,7PE, 76,76 
TS. TE,TE, PA, TE,TO,TPE,TE,TE,TE,TE, TE, 73, TE,TE, Tê 
690260 DATA D,4,5,6,1,7,7,7,2,7,.7.7,3,7,7.7,0.0,5,0,0,1,0,0,5,10,1,4000,1,4,700,0 
S. 18.1. 4000,1,5,700.0,5.15,5.4000,5,6,700,0,5,15,25,4000,1,12,700,0,25,20,40,40 
00,1,15,700,0,25,30,40,4000,1,13,700,0,253,1,1,4000 
50270 DATA 19,40,700,0.25,1,1,4000,10,40,700,0,0,0, 169,180,200,6,20, 180, 200.200. 
400,0,0,0,5.56, 100, 200, 300,7,0.0,0,2,60,80,109,0,0,0,0,0,1,40,60,5,0,0,0,0,0,1,Z 
w 


Guesa DATA 55,5,2,9,-5,0,8,0,60,50,10,0,0,-260,0,0,1 v,0,20,0,-20,0,150,120 
293,0,0,0,0,-20, LL, 1,10 9,14151, 2,3055140 551.0s LeI;ÃoS 

sigam REMA INSTRUCÕOES DO JOGOX 

61H13 PRINT PRINT'QUER LER AS INSTRUCOES (s4n> 7" 

GILUZO GETRIL,AS:IF AS<>'nº AND AS<>"s" THEN ElOZB 

61938 IF A$="n" THEN 61198 

ELASA PLIT 31:PRINT"CRUZES E ZEROS TRIDIMENSIONAIS” 

61060 PRINT"-=-—-——-———-————= = — e — mm ” 

619080 PRINT"O obsectivo do jogo Consiste em tazer” 

61090 PRINT:PRINT'uma linha recta de às antes do” 

Siga PRINT PRINT'computador fazer o mesmo com os Us.” 

61092 PRINT PERINT"O quadro pode ser visto num cubo” 

61093 PRINT FRINT'g4xdx4 é as linhas vencedoras num unico” 
volta dos 4 niveis," 

619094 PRINT-PRINT'Geralmente 32 condicao para ganhar e “ PRINT PRINT'colocar 4 c 

ruzes em qualquer linha": PRINT PEINT"horizontal, vertical ou diagonal.":PRINT:PRI 


PRINT PRINT" numericos: para sNIVEL -<€ 


PRINT FPRINT'nivel ou a 


HT“A sua so9ada da entrada com 3 digitos” 
OLUNA >< FILAS." 

$1175 PRINT-PRINT'OQUALQUER TECLA PARA COMECAR 
olistg GETAL.A IF H=D THEM cli3e 

61120 PUT3L:PRINT"BOR SORTE « BEM PRECISA 15" 
G1ziy PUT22.5.2 

siz2y PRINT'ESPERE UM MOMENTO Por.” 

61230 RETURN 
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Adaptação e tradução de J. Magalhães/Alexandre Sousa 
Original de “SINCLAIR PROJECTS" (AG/SET 83) 


A um nível básico, a electrónica digital é relativamente 
simples. 

Devemos apenas ter em atenção se existem níveis de 
tensão, geralmente de 5V (nível lógico 1), ou se não 
existe (nível lógico OV). A secção de maior importân- 
cia num computador é o CPU, um dispositivo bastante 
completo; no entanto não necessitamos de o entender 
completamente. 

O dispositivo Z80A dá e recebe sinais sob a forma de 
impulsos eléctricos. Os sinais de endereço ou linhas 
são 16. São numerados de AO a A15. Os sinais ao 


“Bongo destas linhas preparam as posições da memó- 


ria para dar e receber dados. Usam-se também para 
seleccionar os dispositivos INPUT/OUTPUT. As linha 
de dados ou “DATA” são oito e são denomi- 
nadas: DO a D7. Os impulsos DATA representam in- 
formação tal como um programa BASIC convertido 
em números binários entre O a 255. 

As linhas DATA são usadas para controlar o dispositi- 
vo seleccionado pelas linhas de endereço para uma 
tarefa determinada. 

Algumas outras linhas surgem do Z80A e são utiliza- 
das para especificar os objectivos a que se destinam. 
Por exemplo, “WR” estará em actividade (nível lógico 
0) quando se dá a entrada ou saída de instruções 
(DATA). IORQ funciona num nível lógico O quando 
está a ser realizado o trabalho INPUT/OUTPUT. 
Poderá verificar no manual, pág. 159 que “OUT 
STATMENT” requer um endereço e um valor entre O 


“Pe 255. O endereço envia um sinal de nível lógico 1 


nas linhas A, que traduz esse número em binário; ex: 
31 transforma as linhas AO a A4 (nível lógico 1) 
dead A (1-2-4-8-16) são as potências de 2 





FIGURA 1 — Diagrama de Circuito 
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Ligação à ficha do Spectru 





Preparar apenas 3 circuítos integrados para este 
INTERFACE. 

Um inversor que toma o nível lógico 1 e o transforma 
em O e vice-versa. 


Um AND (GATE) tem um número de linhas IN e uma 
linha OUT. Se todas as linhas estiverem no nível 
lógico 1, a linha OUT estará também no nível lógico 
1. O NAND (GATE) é um AND c/ um OUTPUT inver- 
tido. Se todos os INPUTS estão num nível lógico 1, a 
linha OUTPUT estará num nível lógico 0. 

UM LATCH é um dispositivo que pode ser ligado por 
um impulso no seu (pino ENABLE). Por outras pala- 
vras, quando ENABLED ( autorizado), o dispositivo 
receberá um impulso DATA no nível lógico 1 e a sua 
saída ficará no estado lógico 1 até que se apresente 
um novo impulso ENABLE e um novo impulso DATA. 
As linhas do enderço (AO-A4) devem ser usadas tal 
como controlam outras funções. Por exemplo se 
A2 está no nível lógico O o Spectrum sentir-se-á 
como com a impressora ligada. Em (adicção) decidi- 
mos usar A5. 

Como o trabalho é apenas no modo OUTPUT, as 
linhas WR e IORQ terão de ser usadas. Qualquer 
linha DATA pode ser usada mas decidimos usar D7: 
então, qualquer valor igual ou maior a 128 significa 
ligar, e qualquer valor mais pequeno desligará o 
LATCH. 

Não esquecer que as ligações requerem 5 e OV para 
O circuíto. 

A propósito, apenas são necessárias 22 posições 
(edge conector). Assim podem ser usadas fichas do 
ZX81, que são ainda mais baratas. 


Apenas 3 dispositivos são necessários: 


74LS30 -— 8 INPUT; NAND 
74LS04 — inversor. 
7415/75 — 4 bit LATCH. 


Ainda será necessário o seguinte hardware: transistor 
BC — 108 ou equivalente,. resistências de: 1K, 270 
ohm e 56 ohm, um LED e um DIODO, 1N 4001 ou 
similar. 

Quando o comando BASIC OUT 63,128 é usado, 
acontece uma série de coisas. As linhas do endereço 
ÃO, Ai, A2, A3, A4 e A5 passam ao nível lógico 1 
(5V) como consta na forma binária do número 63-00 
111111-. As linhas WR e IORQ passam ao nível 
lógico O— (O volt). 

Para comutar as oito — INPUT NAND, todas essas 
linhas devem estar no mesmo nível lógico. 

As linhas WR e IORQ são usadas em 2 secções do 
inversor hex., passando então o nível lógico dessas 
linhas para 1. 

Todos os 8 uns do NAND GATE implicarão um 
OUTPUT do nível lógico 1 para ser sustentado no 
“ENABLE pin” do 7418/75 LATCH e é assim que o 
LATCH é seleccionado pelo n.º da linha de endereço. 
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Com o LATCH então ENABLED, a linha D7 deve 
passar ao nível lógico 1, que requer o valor 128 como 
o 2.º argumento do comando. 

Acerca do dispositivo 74LS/75, considera-se de 
bastante utilidade. É apenas de 4 bit LATCH, o que 
lhe permite ter 8 linhas DATA. São necessários mui- 
tas vezes 2 dispositivos mas o 7475 custa apenas 1/4 
do preço de um 8 — bit LATCH como o 373 e tem 
outras características. As linhas são ENABLED em 
pares sendo fáceis de controlar; também para a linha 
INPUT há duas linhas OUTPUT c/uma linha invertida. 
Se traçarmos cada linha OUTPUT do Latch, aper- 
cebemo-nos que a linha invertida é usada para SINK- 
-TAKE IN-CURRENT através de um Led e séries de 
resistências de 270 ohm. O Led funciona como um 
indicador, mostrando quando o RELAY está ligado. O 
OUTPUT LATCH, dando um nível lógico 1 (5V), é 
alimentado por uma resistência de 1K na base dum 
transistor BC-108. Comutará o transistor permitindo 
que a corrente passe através do relay para o colector 
do BC-108. 





Uma resistência de 560 ohm em série com a bobina 
do relay reduz o consumo de corrente. Não esqueça 
o princípio básico de colocar um díodo através dos 
terminais da bobina, para assegurar o retorno da 
corrente quando se efectua o corte. Finalmente, 
observe que o cabo do ''remote control” fica ligado 
entre os terminais de contacto do relay. Observe 
ainda que os terminais estão fechados quando o relay 
está “on” ou seja actuado. 

Usando o comando do BASIC .... OUT 63,128 para 
colocar o relay em “ON” e usando o comando OUT 
63,0 para colocar o relay “OFF”, terá um método 
simples mas eficaz para comandar o seu gravador. 


A ordem dos acontecimentos será: 


1) LIGAR O CONTROLADOR NA PARTE DE TRÁS 
DO SPECTRUM 

2) LIGAR A ALIMENTAÇÃO 

3) OBSERVAR O “LED” — se estiver com luz, entrar 
com o comando OUT 63,0 através do teclado; ligar 
o cabo do “remote control” na ficha respectiva do 
gravador 

4) LIGAR OS CABOS “EAR''/ “MIC” DO GRAVA- 
DOR, AO SPECTRUM. 


5) PREMIR A TECLA “PLAY” .... A FITA NÃO DE- 
VE GIRAR! 

6) QUANDO A FITA ESTIVER EM POSIÇÃO DE 
AVANÇAR, UTILIZAR O COMENDO DIRECTO. 


OUT 63,128: LOAD" 


Para os programas de sua autoria, fazer o SAVE 
com o LINE respectivo de forma a fazer com que o 
programa inicie automaticamente. 


A primeira linha do seu programa, deverá ser por 
exemplo: 
10 out B30 ..... que irá originar a paragem do 
gravador. 


Se é necesário colocar o gravador em funciona- 
mento, terá então: 

num. linha — OUT 63,128: MERGE "” seguido de 
XXXX + 1 OUT 63,0: RUN 20 (ou GOTO 20). 


OUTRA UTILIDADE: combinar o uso do controla- 
dor com a possibilidade de carregar outro ecran ou 
figura ... Por exemplo: 

XXXX OUT 63,128: LOAD “SCREEN 
XXXX+1 OUT 63,0: GOTO XX 


ATENÇÃO: XXXX +1 E NUMERO DE LINHA A 
SEGUIR A NUM. XXXX. 


RECORDE QUE DEVE COLOCAR SEMPRE .... 
comando OUT primeiro. 


O CONTROLADOR DEVE SER COLOCADO NUMA 
CAIXA QUE PERMITA CORTAR A LIGAÇÃO DO 


“EAR” COM O GRAVADOR. Como é do conheci-;— 


mento de muitos amigos nossos, quando se executa 
um SAVE (gravar), o cabo do ''ear”' deve estar desli- 
gado para evitar o “feedback”. 


O MESMO CONTROLADOR PODE SER USADO 
COM O ZX81 OU TMS 1000. APENAS DEVE SER 
USADA UMA PEQUENA ROTINA EM CÓDIGO MÁ- 
QUINA PARA O COMANDO “OUT” ... QUEM O 
DESEJAR DEVE PORTANTO, ESCREVER-NOS. 
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STRIKE ATTACK (48 K) — És um piloto de um “Phantom” numa base aérea da NATO. A tua missão é destruíres pontos-chaves no 
território inimigo. 

(Preço — 600$00) 
WHEELIE (48 K) — O “Rodinhas” conduz a sua motorizada no circuito de Motocross. 


MR. WIMPY (48 K) — Ele propõe-se fazer os melhores Hamburguers da cidade. Para combater os personagens que o importunam, terá 
que fugir ou atirar-lhes com pimenta. 


DAMAS (48 K) — Prática do tradicional jogo de damas, com a diferença de a dama só se poder deslocar de casa a casa (e não em toda a 
fila). 


HORACE AND THE SPIDERS (48 K) — Inicialmente, Horace tem que trepar os montes, fugindo das aranhas. Para atravessar fendas, usa 
as teias que estas fazem. Mas elas não perdoam! Uma demora de Horace pode significar a sua morte. 


GOLF (48 K) — Podes escolher entre 15 clubes e jogar normalmente. 


JACKPOT (48 K) — Simulação de uma máquina de fruta, com explicação completa das suas regras: HOLD, NUDGE, GAMBLE e 
FEATURE BOX. 


EVEREST ASCENT (48 K) — Escalar a montanha mais alta do mundo não é tarefa fácil! Cuidado com as avalanches, o gelo, o relevo, as 
cavidades... 


SUPER SPY (48 K) — Localiza a ilha secreta do misterioso Dr. Death (cuidado com o seu criado!). Terás que atravessar continentes 
cheios de puzzles e labirintos complicados. 


TRANSYLVANIA TOWER (48 K) — O objectivo é chegar ao topo da torre, matar o conde Kreepie e apanhar o tesouro. O percurso é 
complicado: São 5 andares, com 100 quartos cada e com características diferentes. Atenção aos vampiros e objectos! 


CHUCKIE EGG (48 K) — Protege bem os teus ovos e o milho antes que tos destruam e devorem. 


PAINTER (48 K) — Vais percorrer um labirinto, transportando baldes que deverás encher com tinta. Há um rolo que te persegue e, por 
cada balde que consigas encher, o número de rolos aumenta também... 


KONG (48K) — O gorila capturou a donzela. Passarás por barreiras bem difíceis (bolas de fogo, etc.) para a libertar. 


COSMIC RAIDERS (16 K) — És um piloto de uma nave e vais defender a Terra do ataque de seres estranhos que já instalaram uma base 
no teu planeta. 


JETPAC (16 K) — O astronauta pretende recolher o máximo possível de minerais valiosos em vários planetas. E, quanto mais andar, mais 
os habitantes tentam detê-lo. Além disso, o combustível pode acabar. 


JUMPING JACK (16 K) — Jack tem que saltar do fundo do écran para plataformas superiores; Mas só o consegue se houver aberturas. 
Quanto mais subir, mais altos são os níveis das plataformas. Se cair num nível inferior, perde a vida. 

(Preço/programa — 400$00) 

(excepto STRIKE ATTACK) 





DESCONTO DE 20% PARA SÓCIOS DO CLUBE 





e MICRODRIVE AND INTERFACE 1 MANUAL (em Português), Sinclair Research Limited, England, 


1983 — Ed. e Trad. de LANDRY. 
(Preço — 200$00) 
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INSCRIÇÃO COMO ASSOCIADO 





O CLUBE Z8so está aberto a todos os utilizadores de microcomputadores. 
A intenção de associar os entusiastas das micro-máquinas, é exclusivamente a de permitir: 


1 — PUBLICAÇÃO DE UM JORNAL MENSAL, onde sejam publicados programas de uso geral ou específico 
como no caso da educação. 


2 — PROMOVER TROCAS DE PROGRAMAS, e trocas de experiências; tanto no caso do Software (programa- 
ção), como no caso do Hardware (electrónica). 


3 — PROMOVER DESCONTOS NA AQUISIÇÃO DE PROGRAMAS. 


“4 — LANÇAR CURSOS DE PROGRAMAÇÃO EM BASIC — PASCAL OU OUTRAS LINGUAGENS E DIVULGAR 
O USO DE LINGUAGEM MÁQUINA. 


8 O O US OR SS 
IDADE CON RD UR O ace ici ii is ROM tri nen ii 
DROPISSÃO aa Eai ad aerea cd SUS rrenan contain rememisao 
2/5 6 6 Da 
DERENSNNE TELEF; aseiime maresia sos 
ASSINATURA ANUAL — Esc. 1 500800 (] 
ASSINATURA SEMESTRAL — Esc. 750800 L)] 
CHEQUE OU VALE DO CORREIO 
O OIE A O a id 
DAM O iii ia capi ion doida cia cer cen SS 
DATA / / 
JÁ SÓCIO E 
NOVO SÓCIO O -» A partirdomêsde seen (inclusive) 


